home *** CD-ROM | disk | FTP | other *** search
/ Apple Developer Connection 1998 Fall: Game Toolkit / Disc.iso / SDKs / QuickTime Mac / AIncludes / QuickTimeComponents.a < prev    next >
Encoding:
Text File  |  1998-04-09  |  189.6 KB  |  6,658 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        QuickTimeComponents.a
  3. ;
  4. ;    Contains:    QuickTime Interfaces.
  5. ;
  6. ;    Version:    Technology:    QuickTime 3.0
  7. ;                Release:    QuickTime 3.0
  8. ;
  9. ;    Copyright:    © 1990-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__QUICKTIMECOMPONENTS__') = 'UNDEFINED' THEN
  19. __QUICKTIMECOMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  22.     include 'MacTypes.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  31.     include 'ImageCompression.a'
  32.     ENDIF
  33.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  34.     include 'Movies.a'
  35.     ENDIF
  36.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  37.     include 'Quickdraw.a'
  38.     ENDIF
  39.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  40.     include 'Video.a'
  41.     ENDIF
  42.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  43.     include 'Sound.a'
  44.     ENDIF
  45.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  46.     include 'QuickTimeMusic.a'
  47.     ENDIF
  48.  
  49.  
  50. clockComponentType                EQU        'clok'
  51. systemTickClock                    EQU        'tick'                ; subtype: 60ths since boot        
  52. systemSecondClock                EQU        'seco'                ; subtype: seconds since 1904        
  53. systemMillisecondClock            EQU        'mill'                ; subtype: 1000ths since boot        
  54. systemMicrosecondClock            EQU        'micr'                ; subtype: 1000000ths since boot    
  55.  
  56. kClockRateIsLinear                EQU        1
  57. kClockImplementsCallBacks        EQU        2
  58. kClockCanHandleIntermittentSound EQU    4                    ; sound clocks only 
  59. ; * These are Clock procedures *
  60. ;
  61. ; pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  62. ;
  63.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  64.         Macro
  65.         _ClockGetTime
  66.             move.l              #$00040001,-(sp)
  67.             moveq               #0,D0
  68.             dc.w                $A82A
  69.         EndM
  70.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  71.         IMPORT_CFM_FUNCTION ClockGetTime
  72.     ENDIF
  73.  
  74.  
  75. ;
  76. ; pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  77. ;
  78.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  79.         Macro
  80.         _ClockNewCallBack
  81.             move.l              #$00060002,-(sp)
  82.             moveq               #0,D0
  83.             dc.w                $A82A
  84.         EndM
  85.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  86.         IMPORT_CFM_FUNCTION ClockNewCallBack
  87.     ENDIF
  88.  
  89. ;
  90. ; pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  91. ;
  92.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  93.         Macro
  94.         _ClockDisposeCallBack
  95.             move.l              #$00040003,-(sp)
  96.             moveq               #0,D0
  97.             dc.w                $A82A
  98.         EndM
  99.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  100.         IMPORT_CFM_FUNCTION ClockDisposeCallBack
  101.     ENDIF
  102.  
  103. ;
  104. ; pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  105. ;
  106.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  107.         Macro
  108.         _ClockCallMeWhen
  109.             move.l              #$00100004,-(sp)
  110.             moveq               #0,D0
  111.             dc.w                $A82A
  112.         EndM
  113.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  114.         IMPORT_CFM_FUNCTION ClockCallMeWhen
  115.     ENDIF
  116.  
  117. ;
  118. ; pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  119. ;
  120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  121.         Macro
  122.         _ClockCancelCallBack
  123.             move.l              #$00040005,-(sp)
  124.             moveq               #0,D0
  125.             dc.w                $A82A
  126.         EndM
  127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  128.         IMPORT_CFM_FUNCTION ClockCancelCallBack
  129.     ENDIF
  130.  
  131. ;
  132. ; pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  133. ;
  134.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  135.         Macro
  136.         _ClockRateChanged
  137.             move.l              #$00040006,-(sp)
  138.             moveq               #0,D0
  139.             dc.w                $A82A
  140.         EndM
  141.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  142.         IMPORT_CFM_FUNCTION ClockRateChanged
  143.     ENDIF
  144.  
  145. ;
  146. ; pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  147. ;
  148.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  149.         Macro
  150.         _ClockTimeChanged
  151.             move.l              #$00040007,-(sp)
  152.             moveq               #0,D0
  153.             dc.w                $A82A
  154.         EndM
  155.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  156.         IMPORT_CFM_FUNCTION ClockTimeChanged
  157.     ENDIF
  158.  
  159. ;
  160. ; pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  161. ;
  162.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  163.         Macro
  164.         _ClockSetTimeBase
  165.             move.l              #$00040008,-(sp)
  166.             moveq               #0,D0
  167.             dc.w                $A82A
  168.         EndM
  169.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  170.         IMPORT_CFM_FUNCTION ClockSetTimeBase
  171.     ENDIF
  172.  
  173. ;
  174. ; pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  175. ;
  176.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  177.         Macro
  178.         _ClockStartStopChanged
  179.             move.l              #$00080009,-(sp)
  180.             moveq               #0,D0
  181.             dc.w                $A82A
  182.         EndM
  183.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  184.         IMPORT_CFM_FUNCTION ClockStartStopChanged
  185.     ENDIF
  186.  
  187. ;
  188. ; pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  189. ;
  190.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  191.         Macro
  192.         _ClockGetRate
  193.             move.l              #$0004000A,-(sp)
  194.             moveq               #0,D0
  195.             dc.w                $A82A
  196.         EndM
  197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  198.         IMPORT_CFM_FUNCTION ClockGetRate
  199.     ENDIF
  200.  
  201.  
  202.  
  203.  
  204.  
  205. StandardCompressionType            EQU        'scdi'
  206. StandardCompressionSubType        EQU        'imag'
  207. StandardCompressionSubTypeSound    EQU        'soun'
  208.  
  209. ;     Preference flags.
  210.  
  211. scListEveryCodec                EQU        $00000002
  212. scAllowZeroFrameRate            EQU        $00000004
  213. scAllowZeroKeyFrameRate            EQU        $00000008
  214. scShowBestDepth                    EQU        $00000010
  215. scUseMovableModal                EQU        $00000020
  216. scDisableFrameRateItem            EQU        $00000040
  217.  
  218. ;     Possible test flags for setting test image.
  219.  
  220. scPreferCropping                EQU        $01
  221. scPreferScaling                    EQU        $02
  222. scPreferScalingAndCropping        EQU        $03
  223. scDontDetermineSettingsFromTestImage EQU $04
  224.  
  225. ;     Dimensions of the image preview box.
  226.  
  227. scTestImageWidth                EQU        80
  228. scTestImageHeight                EQU        80
  229. ;     Possible items returned by hookProc.
  230.  
  231. scOKItem                        EQU        1
  232. scCancelItem                    EQU        2
  233. scCustomItem                    EQU        3
  234. ;     Result returned when user cancelled.
  235.  
  236. scUserCancelled                    EQU        1
  237.  
  238.  
  239. ;     Get/SetInfo structures.
  240.  
  241. SCSpatialSettings        RECORD 0
  242. codecType                 ds.l    1                ; offset: $0 (0)
  243. codec                     ds.l    1                ; offset: $4 (4)
  244. depth                     ds.w    1                ; offset: $8 (8)
  245. spatialQuality             ds.l    1                ; offset: $A (10)
  246. sizeof                     EQU *                    ; size:   $E (14)
  247.                         ENDR
  248. SCTemporalSettings        RECORD 0
  249. temporalQuality             ds.l    1                ; offset: $0 (0)
  250. frameRate                 ds.l    1                ; offset: $4 (4)
  251. keyFrameRate             ds.l    1                ; offset: $8 (8)
  252. sizeof                     EQU *                    ; size:   $C (12)
  253.                         ENDR
  254. SCDataRateSettings        RECORD 0
  255. dataRate                 ds.l    1                ; offset: $0 (0)
  256. frameDuration             ds.l    1                ; offset: $4 (4)
  257. minSpatialQuality         ds.l    1                ; offset: $8 (8)
  258. minTemporalQuality         ds.l    1                ; offset: $C (12)
  259. sizeof                     EQU *                    ; size:   $10 (16)
  260.                         ENDR
  261. SCExtendedProcs            RECORD 0
  262. filterProc                 ds.l    1                ; offset: $0 (0)
  263. hookProc                 ds.l    1                ; offset: $4 (4)
  264. refcon                     ds.l    1                ; offset: $8 (8)
  265. customName                 ds        Str31            ; offset: $C (12)
  266. sizeof                     EQU *                    ; size:   $2C (44)
  267.                         ENDR
  268. ;     Get/SetInfo selectors
  269.  
  270. scSpatialSettingsType            EQU        'sptl'                ; pointer to SCSpatialSettings struct
  271. scTemporalSettingsType            EQU        'tprl'                ; pointer to SCTemporalSettings struct
  272. scDataRateSettingsType            EQU        'drat'                ; pointer to SCDataRateSettings struct
  273. scColorTableType                EQU        'clut'                ; pointer to CTabHandle
  274. scProgressProcType                EQU        'prog'                ; pointer to ProgressRecord struct
  275. scExtendedProcsType                EQU        'xprc'                ; pointer to SCExtendedProcs struct
  276. scPreferenceFlagsType            EQU        'pref'                ; pointer to long
  277. scSettingsStateType                EQU        'ssta'                ; pointer to Handle
  278. scSequenceIDType                EQU        'sequ'                ; pointer to ImageSequence
  279. scWindowPositionType            EQU        'wndw'                ; pointer to Point
  280. scCodecFlagsType                EQU        'cflg'                ; pointer to CodecFlags
  281. scCodecSettingsType                EQU        'cdec'                ; pointer to Handle
  282. scForceKeyValueType                EQU        'ksim'                ; pointer to long
  283. scSoundSampleRateType            EQU        'ssrt'                ; pointer to UnsignedFixed
  284. scSoundSampleSizeType            EQU        'ssss'                ; pointer to short
  285. scSoundChannelCountType            EQU        'sscc'                ; pointer to short
  286. scSoundCompressionType            EQU        'ssct'                ; pointer to OSType
  287. scCompressionListType            EQU        'ctyl'                ; pointer to OSType Handle
  288. ;     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.
  289.  
  290.  
  291. SCParams                RECORD 0
  292. flags                     ds.l    1                ; offset: $0 (0)
  293. theCodecType             ds.l    1                ; offset: $4 (4)
  294. theCodec                 ds.l    1                ; offset: $8 (8)
  295. spatialQuality             ds.l    1                ; offset: $C (12)
  296. temporalQuality             ds.l    1                ; offset: $10 (16)
  297. depth                     ds.w    1                ; offset: $14 (20)
  298. frameRate                 ds.l    1                ; offset: $16 (22)
  299. keyFrameRate             ds.l    1                ; offset: $1A (26)
  300. reserved1                 ds.l    1                ; offset: $1E (30)
  301. reserved2                 ds.l    1                ; offset: $22 (34)
  302. sizeof                     EQU *                    ; size:   $26 (38)
  303.                         ENDR
  304.  
  305. scGetCompression                EQU        1
  306. scShowMotionSettings            EQU        $00000001
  307. scSettingsChangedItem            EQU        -1
  308.  
  309. scCompressFlagIgnoreIdenticalFrames EQU    1
  310. ;  QTAtomTypes for atoms found in settings atom containers
  311.  
  312. kQTSettingsVideo                EQU        'vide'                ; Container for video/image compression related atoms (Get/SetInfo selectors)
  313. kQTSettingsSound                EQU        'soun'                ; Container for sound compression related atoms (Get/SetInfo selectors)
  314.  
  315. ; * These are Progress procedures *
  316. ;
  317. ; pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  318. ;
  319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  320.         Macro
  321.         _SCGetCompressionExtended
  322.             move.l              #$00180001,-(sp)
  323.             moveq               #0,D0
  324.             dc.w                $A82A
  325.         EndM
  326.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  327.         IMPORT_CFM_FUNCTION SCGetCompressionExtended
  328.     ENDIF
  329.  
  330. ;
  331. ; pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  332. ;
  333.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  334.         Macro
  335.         _SCPositionRect
  336.             move.l              #$00080002,-(sp)
  337.             moveq               #0,D0
  338.             dc.w                $A82A
  339.         EndM
  340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  341.         IMPORT_CFM_FUNCTION SCPositionRect
  342.     ENDIF
  343.  
  344. ;
  345. ; pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  346. ;
  347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  348.         Macro
  349.         _SCPositionDialog
  350.             move.l              #$00060003,-(sp)
  351.             moveq               #0,D0
  352.             dc.w                $A82A
  353.         EndM
  354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  355.         IMPORT_CFM_FUNCTION SCPositionDialog
  356.     ENDIF
  357.  
  358. ;
  359. ; pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  360. ;
  361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  362.         Macro
  363.         _SCSetTestImagePictHandle
  364.             move.l              #$000A0004,-(sp)
  365.             moveq               #0,D0
  366.             dc.w                $A82A
  367.         EndM
  368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  369.         IMPORT_CFM_FUNCTION SCSetTestImagePictHandle
  370.     ENDIF
  371.  
  372. ;
  373. ; pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  374. ;
  375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  376.         Macro
  377.         _SCSetTestImagePictFile
  378.             move.l              #$00080005,-(sp)
  379.             moveq               #0,D0
  380.             dc.w                $A82A
  381.         EndM
  382.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  383.         IMPORT_CFM_FUNCTION SCSetTestImagePictFile
  384.     ENDIF
  385.  
  386. ;
  387. ; pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  388. ;
  389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  390.         Macro
  391.         _SCSetTestImagePixMap
  392.             move.l              #$000A0006,-(sp)
  393.             moveq               #0,D0
  394.             dc.w                $A82A
  395.         EndM
  396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  397.         IMPORT_CFM_FUNCTION SCSetTestImagePixMap
  398.     ENDIF
  399.  
  400. ;
  401. ; pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  402. ;
  403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  404.         Macro
  405.         _SCGetBestDeviceRect
  406.             move.l              #$00040007,-(sp)
  407.             moveq               #0,D0
  408.             dc.w                $A82A
  409.         EndM
  410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  411.         IMPORT_CFM_FUNCTION SCGetBestDeviceRect
  412.     ENDIF
  413.  
  414.  
  415. ;
  416. ; pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  417. ;
  418.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  419.         Macro
  420.         _SCRequestImageSettings
  421.             move.l              #$0000000A,-(sp)
  422.             moveq               #0,D0
  423.             dc.w                $A82A
  424.         EndM
  425.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  426.         IMPORT_CFM_FUNCTION SCRequestImageSettings
  427.     ENDIF
  428.  
  429. ;
  430. ; pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  431. ;
  432.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  433.         Macro
  434.         _SCCompressImage
  435.             move.l              #$0010000B,-(sp)
  436.             moveq               #0,D0
  437.             dc.w                $A82A
  438.         EndM
  439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  440.         IMPORT_CFM_FUNCTION SCCompressImage
  441.     ENDIF
  442.  
  443. ;
  444. ; pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  445. ;
  446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  447.         Macro
  448.         _SCCompressPicture
  449.             move.l              #$0008000C,-(sp)
  450.             moveq               #0,D0
  451.             dc.w                $A82A
  452.         EndM
  453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  454.         IMPORT_CFM_FUNCTION SCCompressPicture
  455.     ENDIF
  456.  
  457. ;
  458. ; pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  459. ;
  460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  461.         Macro
  462.         _SCCompressPictureFile
  463.             move.l              #$0004000D,-(sp)
  464.             moveq               #0,D0
  465.             dc.w                $A82A
  466.         EndM
  467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  468.         IMPORT_CFM_FUNCTION SCCompressPictureFile
  469.     ENDIF
  470.  
  471. ;
  472. ; pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  473. ;
  474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  475.         Macro
  476.         _SCRequestSequenceSettings
  477.             move.l              #$0000000E,-(sp)
  478.             moveq               #0,D0
  479.             dc.w                $A82A
  480.         EndM
  481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  482.         IMPORT_CFM_FUNCTION SCRequestSequenceSettings
  483.     ENDIF
  484.  
  485. ;
  486. ; pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  487. ;
  488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  489.         Macro
  490.         _SCCompressSequenceBegin
  491.             move.l              #$000C000F,-(sp)
  492.             moveq               #0,D0
  493.             dc.w                $A82A
  494.         EndM
  495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  496.         IMPORT_CFM_FUNCTION SCCompressSequenceBegin
  497.     ENDIF
  498.  
  499. ;
  500. ; pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  501. ;
  502.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  503.         Macro
  504.         _SCCompressSequenceFrame
  505.             move.l              #$00140010,-(sp)
  506.             moveq               #0,D0
  507.             dc.w                $A82A
  508.         EndM
  509.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  510.         IMPORT_CFM_FUNCTION SCCompressSequenceFrame
  511.     ENDIF
  512.  
  513. ;
  514. ; pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  515. ;
  516.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  517.         Macro
  518.         _SCCompressSequenceEnd
  519.             move.l              #$00000011,-(sp)
  520.             moveq               #0,D0
  521.             dc.w                $A82A
  522.         EndM
  523.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  524.         IMPORT_CFM_FUNCTION SCCompressSequenceEnd
  525.     ENDIF
  526.  
  527. ;
  528. ; pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  529. ;
  530.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  531.         Macro
  532.         _SCDefaultPictHandleSettings
  533.             move.l              #$00060012,-(sp)
  534.             moveq               #0,D0
  535.             dc.w                $A82A
  536.         EndM
  537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  538.         IMPORT_CFM_FUNCTION SCDefaultPictHandleSettings
  539.     ENDIF
  540.  
  541. ;
  542. ; pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  543. ;
  544.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  545.         Macro
  546.         _SCDefaultPictFileSettings
  547.             move.l              #$00040013,-(sp)
  548.             moveq               #0,D0
  549.             dc.w                $A82A
  550.         EndM
  551.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  552.         IMPORT_CFM_FUNCTION SCDefaultPictFileSettings
  553.     ENDIF
  554.  
  555. ;
  556. ; pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  557. ;
  558.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  559.         Macro
  560.         _SCDefaultPixMapSettings
  561.             move.l              #$00060014,-(sp)
  562.             moveq               #0,D0
  563.             dc.w                $A82A
  564.         EndM
  565.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  566.         IMPORT_CFM_FUNCTION SCDefaultPixMapSettings
  567.     ENDIF
  568.  
  569. ;
  570. ; pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  571. ;
  572.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  573.         Macro
  574.         _SCGetInfo
  575.             move.l              #$00080015,-(sp)
  576.             moveq               #0,D0
  577.             dc.w                $A82A
  578.         EndM
  579.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  580.         IMPORT_CFM_FUNCTION SCGetInfo
  581.     ENDIF
  582.  
  583. ;
  584. ; pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  585. ;
  586.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  587.         Macro
  588.         _SCSetInfo
  589.             move.l              #$00080016,-(sp)
  590.             moveq               #0,D0
  591.             dc.w                $A82A
  592.         EndM
  593.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  594.         IMPORT_CFM_FUNCTION SCSetInfo
  595.     ENDIF
  596.  
  597. ;
  598. ; pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  599. ;
  600.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  601.         Macro
  602.         _SCNewGWorld
  603.             move.l              #$000C0017,-(sp)
  604.             moveq               #0,D0
  605.             dc.w                $A82A
  606.         EndM
  607.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  608.         IMPORT_CFM_FUNCTION SCNewGWorld
  609.     ENDIF
  610.  
  611. ;
  612. ; pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  613. ;
  614.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  615.         Macro
  616.         _SCSetCompressFlags
  617.             move.l              #$00040018,-(sp)
  618.             moveq               #0,D0
  619.             dc.w                $A82A
  620.         EndM
  621.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  622.         IMPORT_CFM_FUNCTION SCSetCompressFlags
  623.     ENDIF
  624.  
  625. ;
  626. ; pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  627. ;
  628.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  629.         Macro
  630.         _SCGetCompressFlags
  631.             move.l              #$00040019,-(sp)
  632.             moveq               #0,D0
  633.             dc.w                $A82A
  634.         EndM
  635.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  636.         IMPORT_CFM_FUNCTION SCGetCompressFlags
  637.     ENDIF
  638.  
  639. ;
  640. ; pascal ComponentResult SCGetSettingsAsText(ComponentInstance ci, Handle *text)
  641. ;
  642.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  643.         Macro
  644.         _SCGetSettingsAsText
  645.             move.l              #$0004001A,-(sp)
  646.             moveq               #0,D0
  647.             dc.w                $A82A
  648.         EndM
  649.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  650.         IMPORT_CFM_FUNCTION SCGetSettingsAsText
  651.     ENDIF
  652.  
  653. ;
  654. ; pascal ComponentResult SCGetSettingsAsAtomContainer(ComponentInstance ci, QTAtomContainer *settings)
  655. ;
  656.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  657.         Macro
  658.         _SCGetSettingsAsAtomContainer
  659.             move.l              #$0004001B,-(sp)
  660.             moveq               #0,D0
  661.             dc.w                $A82A
  662.         EndM
  663.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  664.         IMPORT_CFM_FUNCTION SCGetSettingsAsAtomContainer
  665.     ENDIF
  666.  
  667. ;
  668. ; pascal ComponentResult SCSetSettingsFromAtomContainer(ComponentInstance ci, QTAtomContainer settings)
  669. ;
  670.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  671.         Macro
  672.         _SCSetSettingsFromAtomContainer
  673.             move.l              #$0004001C,-(sp)
  674.             moveq               #0,D0
  675.             dc.w                $A82A
  676.         EndM
  677.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  678.         IMPORT_CFM_FUNCTION SCSetSettingsFromAtomContainer
  679.     ENDIF
  680.  
  681.  
  682.  
  683.  
  684.  
  685. TweenComponentType                EQU        'twen'
  686. ; typedef ComponentInstance             TweenerComponent
  687.  
  688. ;
  689. ; pascal ComponentResult TweenerInitialize(TweenerComponent tc, QTAtomContainer container, QTAtom tweenAtom, QTAtom dataAtom)
  690. ;
  691.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  692.         Macro
  693.         _TweenerInitialize
  694.             move.l              #$000C0001,-(sp)
  695.             moveq               #0,D0
  696.             dc.w                $A82A
  697.         EndM
  698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  699.         IMPORT_CFM_FUNCTION TweenerInitialize
  700.     ENDIF
  701.  
  702. ;
  703. ; pascal ComponentResult TweenerDoTween(TweenerComponent tc, TweenRecord *tr)
  704. ;
  705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  706.         Macro
  707.         _TweenerDoTween
  708.             move.l              #$00040002,-(sp)
  709.             moveq               #0,D0
  710.             dc.w                $A82A
  711.         EndM
  712.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  713.         IMPORT_CFM_FUNCTION TweenerDoTween
  714.     ENDIF
  715.  
  716. ;
  717. ; pascal ComponentResult TweenerReset(TweenerComponent tc)
  718. ;
  719.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  720.         Macro
  721.         _TweenerReset
  722.             move.l              #$00000003,-(sp)
  723.             moveq               #0,D0
  724.             dc.w                $A82A
  725.         EndM
  726.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  727.         IMPORT_CFM_FUNCTION TweenerReset
  728.     ENDIF
  729.  
  730.  
  731.  
  732.  
  733. TCSourceRefNameType                EQU        'name'
  734.  
  735. tcDropFrame                        EQU        $01
  736. tc24HourMax                        EQU        $02
  737. tcNegTimesOK                    EQU        $04
  738. tcCounter                        EQU        $08
  739. TimeCodeDef                RECORD 0
  740. flags                     ds.l    1                ; offset: $0 (0)        ;  drop-frame, etc.
  741. fTimeScale                 ds.l    1                ; offset: $4 (4)        ;  time scale of frameDuration (eg. 2997)
  742. frameDuration             ds.l    1                ; offset: $8 (8)        ;  duration of each frame (eg. 100)
  743. numFrames                 ds.b    1                ; offset: $C (12)        ;  frames/sec for timecode (eg. 30) OR frames/tick for counter mode
  744. padding                     ds.b    1                ; offset: $D (13)        ;  unused padding byte
  745. sizeof                     EQU *                    ; size:   $E (14)
  746.                         ENDR
  747.  
  748. tctNegFlag                        EQU        $80                    ; negative bit is in minutes
  749. TimeCodeTime            RECORD 0
  750. hours                     ds.b    1                ; offset: $0 (0)
  751. minutes                     ds.b    1                ; offset: $1 (1)
  752. seconds                     ds.b    1                ; offset: $2 (2)
  753. frames                     ds.b    1                ; offset: $3 (3)
  754. sizeof                     EQU *                    ; size:   $4 (4)
  755.                         ENDR
  756. TimeCodeCounter            RECORD 0
  757. counter                     ds.l    1                ; offset: $0 (0)
  758. sizeof                     EQU *                    ; size:   $4 (4)
  759.                         ENDR
  760. TimeCodeDescription        RECORD 0
  761. descSize                 ds.l    1                ; offset: $0 (0)        ;  standard sample description header
  762. dataFormat                 ds.l    1                ; offset: $4 (4)
  763. resvd1                     ds.l    1                ; offset: $8 (8)
  764. resvd2                     ds.w    1                ; offset: $C (12)
  765. dataRefIndex             ds.w    1                ; offset: $E (14)
  766. flags                     ds.l    1                ; offset: $10 (16)        ;  timecode specific stuff
  767. timeCodeDef                 ds        TimeCodeDef        ; offset: $14 (20)
  768. srcRef                     ds.l    1                ; offset: $22 (34) <-- really an array of length one
  769. sizeof                     EQU *                    ; size:   $26 (38)
  770.                         ENDR
  771. ; typedef struct TimeCodeDescription *    TimeCodeDescriptionPtr
  772.  
  773. ; typedef TimeCodeDescriptionPtr *        TimeCodeDescriptionHandle
  774.  
  775.  
  776. tcdfShowTimeCode                EQU        $01
  777.  
  778. TCTextOptions            RECORD 0
  779. txFont                     ds.w    1                ; offset: $0 (0)
  780. txFace                     ds.w    1                ; offset: $2 (2)
  781. txSize                     ds.w    1                ; offset: $4 (4)
  782. pad                         ds.w    1                ; offset: $6 (6)        ;  let's make it longword aligned - thanks.. 
  783. foreColor                 ds        RGBColor        ; offset: $8 (8)
  784. backColor                 ds        RGBColor        ; offset: $E (14)
  785. sizeof                     EQU *                    ; size:   $14 (20)
  786.                         ENDR
  787. ; typedef struct TCTextOptions *        TCTextOptionsPtr
  788.  
  789. ;
  790. ; pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  791. ;
  792.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  793.         Macro
  794.         _TCGetCurrentTimeCode
  795.             move.l              #$00100101,-(sp)
  796.             moveq               #0,D0
  797.             dc.w                $A82A
  798.         EndM
  799.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  800.         IMPORT_CFM_FUNCTION TCGetCurrentTimeCode
  801.     ENDIF
  802.  
  803. ;
  804. ; pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  805. ;
  806.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  807.         Macro
  808.         _TCGetTimeCodeAtTime
  809.             move.l              #$00140102,-(sp)
  810.             moveq               #0,D0
  811.             dc.w                $A82A
  812.         EndM
  813.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  814.         IMPORT_CFM_FUNCTION TCGetTimeCodeAtTime
  815.     ENDIF
  816.  
  817. ;
  818. ; pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  819. ;
  820.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  821.         Macro
  822.         _TCTimeCodeToString
  823.             move.l              #$000C0103,-(sp)
  824.             moveq               #0,D0
  825.             dc.w                $A82A
  826.         EndM
  827.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  828.         IMPORT_CFM_FUNCTION TCTimeCodeToString
  829.     ENDIF
  830.  
  831. ;
  832. ; pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  833. ;
  834.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  835.         Macro
  836.         _TCTimeCodeToFrameNumber
  837.             move.l              #$000C0104,-(sp)
  838.             moveq               #0,D0
  839.             dc.w                $A82A
  840.         EndM
  841.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  842.         IMPORT_CFM_FUNCTION TCTimeCodeToFrameNumber
  843.     ENDIF
  844.  
  845. ;
  846. ; pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  847. ;
  848.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  849.         Macro
  850.         _TCFrameNumberToTimeCode
  851.             move.l              #$000C0105,-(sp)
  852.             moveq               #0,D0
  853.             dc.w                $A82A
  854.         EndM
  855.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  856.         IMPORT_CFM_FUNCTION TCFrameNumberToTimeCode
  857.     ENDIF
  858.  
  859. ;
  860. ; pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  861. ;
  862.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  863.         Macro
  864.         _TCGetSourceRef
  865.             move.l              #$00080106,-(sp)
  866.             moveq               #0,D0
  867.             dc.w                $A82A
  868.         EndM
  869.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  870.         IMPORT_CFM_FUNCTION TCGetSourceRef
  871.     ENDIF
  872.  
  873. ;
  874. ; pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  875. ;
  876.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  877.         Macro
  878.         _TCSetSourceRef
  879.             move.l              #$00080107,-(sp)
  880.             moveq               #0,D0
  881.             dc.w                $A82A
  882.         EndM
  883.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  884.         IMPORT_CFM_FUNCTION TCSetSourceRef
  885.     ENDIF
  886.  
  887. ;
  888. ; pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  889. ;
  890.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  891.         Macro
  892.         _TCSetTimeCodeFlags
  893.             move.l              #$00080108,-(sp)
  894.             moveq               #0,D0
  895.             dc.w                $A82A
  896.         EndM
  897.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  898.         IMPORT_CFM_FUNCTION TCSetTimeCodeFlags
  899.     ENDIF
  900.  
  901. ;
  902. ; pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  903. ;
  904.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  905.         Macro
  906.         _TCGetTimeCodeFlags
  907.             move.l              #$00040109,-(sp)
  908.             moveq               #0,D0
  909.             dc.w                $A82A
  910.         EndM
  911.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  912.         IMPORT_CFM_FUNCTION TCGetTimeCodeFlags
  913.     ENDIF
  914.  
  915. ;
  916. ; pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  917. ;
  918.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  919.         Macro
  920.         _TCSetDisplayOptions
  921.             move.l              #$0004010A,-(sp)
  922.             moveq               #0,D0
  923.             dc.w                $A82A
  924.         EndM
  925.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  926.         IMPORT_CFM_FUNCTION TCSetDisplayOptions
  927.     ENDIF
  928.  
  929. ;
  930. ; pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  931. ;
  932.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  933.         Macro
  934.         _TCGetDisplayOptions
  935.             move.l              #$0004010B,-(sp)
  936.             moveq               #0,D0
  937.             dc.w                $A82A
  938.         EndM
  939.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  940.         IMPORT_CFM_FUNCTION TCGetDisplayOptions
  941.     ENDIF
  942.  
  943.  
  944.  
  945. ; typedef ComponentInstance             MovieImportComponent
  946.  
  947. ; typedef ComponentInstance             MovieExportComponent
  948.  
  949.  
  950. MovieImportType                    EQU        'eat '
  951. MovieExportType                    EQU        'spit'
  952.  
  953. canMovieImportHandles            EQU        $01
  954. canMovieImportFiles                EQU        $02
  955. hasMovieImportUserInterface        EQU        $04
  956. canMovieExportHandles            EQU        $08
  957. canMovieExportFiles                EQU        $10
  958. hasMovieExportUserInterface        EQU        $20
  959. dontAutoFileMovieImport            EQU        $40
  960. canMovieExportAuxDataHandle        EQU        $80
  961. canMovieImportValidateHandles    EQU        $0100
  962. canMovieImportValidateFile        EQU        $0200
  963. dontRegisterWithEasyOpen        EQU        $0400
  964. canMovieImportInPlace            EQU        $0800
  965. movieImportSubTypeIsFileExtension EQU    $1000
  966. canMovieImportPartial            EQU        $2000
  967. hasMovieImportMIMEList            EQU        $4000
  968. canMovieExportFromProcedures    EQU        $8000
  969. canMovieExportValidateMovie        EQU        $00010000
  970. movieExportNeedsResourceFork    EQU        $00020000
  971. canMovieImportDataReferences    EQU        $00040000
  972. movieExportMustGetSourceMediaType EQU    $00080000
  973. reservedForUseByGraphicsImporters EQU    $00800000
  974.  
  975. movieImportCreateTrack            EQU        1
  976. movieImportInParallel            EQU        2
  977. movieImportMustUseTrack            EQU        4
  978.  
  979. movieImportResultUsedMultipleTracks EQU    8
  980.  
  981. kMovieExportTextOnly            EQU        0
  982. kMovieExportAbsoluteTime        EQU        1
  983. kMovieExportRelativeTime        EQU        2
  984.  
  985. kMIDIImportSilenceBefore        EQU        $01
  986. kMIDIImportSilenceAfter            EQU        $02
  987. kMIDIImport20Playable            EQU        $04
  988. kMIDIImportWantLyrics            EQU        $08
  989.  
  990. kMimeInfoMimeTypeTag            EQU        'mime'
  991. kMimeInfoFileExtensionTag        EQU        'ext '
  992. kMimeInfoDescriptionTag            EQU        'desc'
  993. kMimeInfoGroupTag                EQU        'grop'
  994. kMimeInfoDoNotOverrideExistingFileTypeAssociation EQU 'nofa'
  995.  
  996. kQTFileTypeAIFF                    EQU        'AIFF'
  997. kQTFileTypeAIFC                    EQU        'AIFC'
  998. kQTFileTypeDVC                    EQU        'dvc!'
  999. kQTFileTypeMIDI                    EQU        'Midi'
  1000. kQTFileTypePicture                EQU        'PICT'
  1001. kQTFileTypeMovie                EQU        'MooV'
  1002. kQTFileTypeText                    EQU        'TEXT'
  1003. kQTFileTypeWave                    EQU        'WAVE'
  1004. kQTFileTypeSystemSevenSound        EQU        'sfil'
  1005. kQTFileTypeMuLaw                EQU        'ULAW'
  1006. kQTFileTypeAVI                    EQU        'VfW '
  1007. kQTFileTypeSoundDesignerII        EQU        'Sd2f'
  1008. kQTFileTypeAudioCDTrack            EQU        'trak'
  1009. kQTFileTypePICS                    EQU        'PICS'
  1010. kQTFileTypeGIF                    EQU        'GIFf'
  1011. kQTFileTypePhotoShop            EQU        '8BPS'
  1012. kQTFileTypeSGIImage                EQU        '.SGI'
  1013. kQTFileTypeBMP                    EQU        'BMPf'
  1014. kQTFileTypeJPEG                    EQU        'JPEG'
  1015. kQTFileTypeJFIF                    EQU        'JPEG'
  1016. kQTFileTypeMacPaint                EQU        'PNTG'
  1017. kQTFileTypeTargaImage            EQU        'TPIC'
  1018. kQTFileTypeQuickDrawGXPicture    EQU        'qdgx'
  1019. kQTFileTypeQuickTimeImage        EQU        'qtif'
  1020. kQTFileType3DMF                    EQU        '3DMF'
  1021. ;  QTAtomTypes for atoms in import/export settings containers
  1022.  
  1023. kQTSettingsEffect                EQU        'effe'                ; Parent atom whose contents are atoms of an effects description
  1024. kQTSettingsMIDI                    EQU        'MIDI'                ; MIDI import related container
  1025. kQTSettingsMIDISettingFlags        EQU        'sttg'                ; MIDI import settings    (UInt32)
  1026. kQTSettingsText                    EQU        'text'                ; Text related container
  1027. kQTSettingsTextDescription        EQU        'desc'                ; Text settings (TextDescription record)
  1028. kQTSettingsTextSize                EQU        'size'                ; Width/height to create (FixedPoint)
  1029. kQTSettingsTextSettingFlags        EQU        'sttg'                ; Text export settings (UInt32)
  1030. kQTSettingsTextTimeFraction        EQU        'timf'                ; Movie time fraction for export (UInt32)
  1031. kQTSettingsTime                    EQU        'time'                ; Time related container
  1032. kQTSettingsAudioCDTrack            EQU        'trak'                ; Audio CD track related container
  1033. kQTSettingsAudioCDTrackRateShift EQU    'rshf'                ; Rate shift to be performed (SInt16)
  1034.  
  1035.  
  1036.  
  1037. MovieExportGetDataParams RECORD 0
  1038. recordSize                 ds.l    1                ; offset: $0 (0)
  1039. trackID                     ds.l    1                ; offset: $4 (4)
  1040. sourceTimeScale             ds.l    1                ; offset: $8 (8)
  1041. requestedTime             ds.l    1                ; offset: $C (12)
  1042. actualTime                 ds.l    1                ; offset: $10 (16)
  1043. dataPtr                     ds.l    1                ; offset: $14 (20)
  1044. dataSize                 ds.l    1                ; offset: $18 (24)
  1045. desc                     ds.l    1                ; offset: $1C (28)
  1046. descType                 ds.l    1                ; offset: $20 (32)
  1047. descSeed                 ds.l    1                ; offset: $24 (36)
  1048. requestedSampleCount     ds.l    1                ; offset: $28 (40)
  1049. actualSampleCount         ds.l    1                ; offset: $2C (44)
  1050. durationPerSample         ds.l    1                ; offset: $30 (48)
  1051. sampleFlags                 ds.l    1                ; offset: $34 (52)
  1052. sizeof                     EQU *                    ; size:   $38 (56)
  1053.                         ENDR
  1054. ;
  1055. ; pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1056. ;
  1057.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1058.         Macro
  1059.         _MovieImportHandle
  1060.             move.l              #$00200001,-(sp)
  1061.             moveq               #0,D0
  1062.             dc.w                $A82A
  1063.         EndM
  1064.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1065.         IMPORT_CFM_FUNCTION MovieImportHandle
  1066.     ENDIF
  1067.  
  1068. ;
  1069. ; pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1070. ;
  1071.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1072.         Macro
  1073.         _MovieImportFile
  1074.             move.l              #$00200002,-(sp)
  1075.             moveq               #0,D0
  1076.             dc.w                $A82A
  1077.         EndM
  1078.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1079.         IMPORT_CFM_FUNCTION MovieImportFile
  1080.     ENDIF
  1081.  
  1082. ;
  1083. ; pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  1084. ;
  1085.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1086.         Macro
  1087.         _MovieImportSetSampleDuration
  1088.             move.l              #$00080003,-(sp)
  1089.             moveq               #0,D0
  1090.             dc.w                $A82A
  1091.         EndM
  1092.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1093.         IMPORT_CFM_FUNCTION MovieImportSetSampleDuration
  1094.     ENDIF
  1095.  
  1096. ;
  1097. ; pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1098. ;
  1099.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1100.         Macro
  1101.         _MovieImportSetSampleDescription
  1102.             move.l              #$00080004,-(sp)
  1103.             moveq               #0,D0
  1104.             dc.w                $A82A
  1105.         EndM
  1106.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1107.         IMPORT_CFM_FUNCTION MovieImportSetSampleDescription
  1108.     ENDIF
  1109.  
  1110. ;
  1111. ; pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1112. ;
  1113.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1114.         Macro
  1115.         _MovieImportSetMediaFile
  1116.             move.l              #$00040005,-(sp)
  1117.             moveq               #0,D0
  1118.             dc.w                $A82A
  1119.         EndM
  1120.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1121.         IMPORT_CFM_FUNCTION MovieImportSetMediaFile
  1122.     ENDIF
  1123.  
  1124. ;
  1125. ; pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1126. ;
  1127.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1128.         Macro
  1129.         _MovieImportSetDimensions
  1130.             move.l              #$00080006,-(sp)
  1131.             moveq               #0,D0
  1132.             dc.w                $A82A
  1133.         EndM
  1134.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1135.         IMPORT_CFM_FUNCTION MovieImportSetDimensions
  1136.     ENDIF
  1137.  
  1138. ;
  1139. ; pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1140. ;
  1141.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1142.         Macro
  1143.         _MovieImportSetChunkSize
  1144.             move.l              #$00040007,-(sp)
  1145.             moveq               #0,D0
  1146.             dc.w                $A82A
  1147.         EndM
  1148.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1149.         IMPORT_CFM_FUNCTION MovieImportSetChunkSize
  1150.     ENDIF
  1151.  
  1152. ;
  1153. ; pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1154. ;
  1155.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1156.         Macro
  1157.         _MovieImportSetProgressProc
  1158.             move.l              #$00080008,-(sp)
  1159.             moveq               #0,D0
  1160.             dc.w                $A82A
  1161.         EndM
  1162.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1163.         IMPORT_CFM_FUNCTION MovieImportSetProgressProc
  1164.     ENDIF
  1165.  
  1166. ;
  1167. ; pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1168. ;
  1169.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1170.         Macro
  1171.         _MovieImportSetAuxiliaryData
  1172.             move.l              #$00080009,-(sp)
  1173.             moveq               #0,D0
  1174.             dc.w                $A82A
  1175.         EndM
  1176.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1177.         IMPORT_CFM_FUNCTION MovieImportSetAuxiliaryData
  1178.     ENDIF
  1179.  
  1180. ;
  1181. ; pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1182. ;
  1183.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1184.         Macro
  1185.         _MovieImportSetFromScrap
  1186.             move.l              #$0002000A,-(sp)
  1187.             moveq               #0,D0
  1188.             dc.w                $A82A
  1189.         EndM
  1190.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1191.         IMPORT_CFM_FUNCTION MovieImportSetFromScrap
  1192.     ENDIF
  1193.  
  1194. ;
  1195. ; pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1196. ;
  1197.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1198.         Macro
  1199.         _MovieImportDoUserDialog
  1200.             move.l              #$000C000B,-(sp)
  1201.             moveq               #0,D0
  1202.             dc.w                $A82A
  1203.         EndM
  1204.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1205.         IMPORT_CFM_FUNCTION MovieImportDoUserDialog
  1206.     ENDIF
  1207.  
  1208. ;
  1209. ; pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1210. ;
  1211.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1212.         Macro
  1213.         _MovieImportSetDuration
  1214.             move.l              #$0004000C,-(sp)
  1215.             moveq               #0,D0
  1216.             dc.w                $A82A
  1217.         EndM
  1218.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1219.         IMPORT_CFM_FUNCTION MovieImportSetDuration
  1220.     ENDIF
  1221.  
  1222. ;
  1223. ; pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1224. ;
  1225.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1226.         Macro
  1227.         _MovieImportGetAuxiliaryDataType
  1228.             move.l              #$0004000D,-(sp)
  1229.             moveq               #0,D0
  1230.             dc.w                $A82A
  1231.         EndM
  1232.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1233.         IMPORT_CFM_FUNCTION MovieImportGetAuxiliaryDataType
  1234.     ENDIF
  1235.  
  1236. ;
  1237. ; pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1238. ;
  1239.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1240.         Macro
  1241.         _MovieImportValidate
  1242.             move.l              #$000C000E,-(sp)
  1243.             moveq               #0,D0
  1244.             dc.w                $A82A
  1245.         EndM
  1246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1247.         IMPORT_CFM_FUNCTION MovieImportValidate
  1248.     ENDIF
  1249.  
  1250. ;
  1251. ; pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1252. ;
  1253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1254.         Macro
  1255.         _MovieImportGetFileType
  1256.             move.l              #$0004000F,-(sp)
  1257.             moveq               #0,D0
  1258.             dc.w                $A82A
  1259.         EndM
  1260.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1261.         IMPORT_CFM_FUNCTION MovieImportGetFileType
  1262.     ENDIF
  1263.  
  1264. ;
  1265. ; pascal ComponentResult MovieImportDataRef(MovieImportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1266. ;
  1267.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1268.         Macro
  1269.         _MovieImportDataRef
  1270.             move.l              #$00240010,-(sp)
  1271.             moveq               #0,D0
  1272.             dc.w                $A82A
  1273.         EndM
  1274.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1275.         IMPORT_CFM_FUNCTION MovieImportDataRef
  1276.     ENDIF
  1277.  
  1278. ;
  1279. ; pascal ComponentResult MovieImportGetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle *desc, OSType *mediaType)
  1280. ;
  1281.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1282.         Macro
  1283.         _MovieImportGetSampleDescription
  1284.             move.l              #$00080011,-(sp)
  1285.             moveq               #0,D0
  1286.             dc.w                $A82A
  1287.         EndM
  1288.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1289.         IMPORT_CFM_FUNCTION MovieImportGetSampleDescription
  1290.     ENDIF
  1291.  
  1292. ;
  1293. ; pascal ComponentResult MovieImportGetMIMETypeList(MovieImportComponent ci, QTAtomContainer *mimeInfo)
  1294. ;
  1295.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1296.         Macro
  1297.         _MovieImportGetMIMETypeList
  1298.             move.l              #$00040012,-(sp)
  1299.             moveq               #0,D0
  1300.             dc.w                $A82A
  1301.         EndM
  1302.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1303.         IMPORT_CFM_FUNCTION MovieImportGetMIMETypeList
  1304.     ENDIF
  1305.  
  1306. ;
  1307. ; pascal ComponentResult MovieImportSetOffsetAndLimit(MovieImportComponent ci, unsigned long offset, unsigned long limit)
  1308. ;
  1309.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1310.         Macro
  1311.         _MovieImportSetOffsetAndLimit
  1312.             move.l              #$00080013,-(sp)
  1313.             moveq               #0,D0
  1314.             dc.w                $A82A
  1315.         EndM
  1316.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1317.         IMPORT_CFM_FUNCTION MovieImportSetOffsetAndLimit
  1318.     ENDIF
  1319.  
  1320. ;
  1321. ; pascal ComponentResult MovieImportGetSettingsAsAtomContainer(MovieImportComponent ci, QTAtomContainer *settings)
  1322. ;
  1323.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1324.         Macro
  1325.         _MovieImportGetSettingsAsAtomContainer
  1326.             move.l              #$00040014,-(sp)
  1327.             moveq               #0,D0
  1328.             dc.w                $A82A
  1329.         EndM
  1330.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1331.         IMPORT_CFM_FUNCTION MovieImportGetSettingsAsAtomContainer
  1332.     ENDIF
  1333.  
  1334. ;
  1335. ; pascal ComponentResult MovieImportSetSettingsFromAtomContainer(MovieImportComponent ci, QTAtomContainer settings)
  1336. ;
  1337.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1338.         Macro
  1339.         _MovieImportSetSettingsFromAtomContainer
  1340.             move.l              #$00040015,-(sp)
  1341.             moveq               #0,D0
  1342.             dc.w                $A82A
  1343.         EndM
  1344.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1345.         IMPORT_CFM_FUNCTION MovieImportSetSettingsFromAtomContainer
  1346.     ENDIF
  1347.  
  1348. ;
  1349. ; pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1350. ;
  1351.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1352.         Macro
  1353.         _MovieExportToHandle
  1354.             move.l              #$00140080,-(sp)
  1355.             moveq               #0,D0
  1356.             dc.w                $A82A
  1357.         EndM
  1358.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1359.         IMPORT_CFM_FUNCTION MovieExportToHandle
  1360.     ENDIF
  1361.  
  1362. ;
  1363. ; pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1364. ;
  1365.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1366.         Macro
  1367.         _MovieExportToFile
  1368.             move.l              #$00140081,-(sp)
  1369.             moveq               #0,D0
  1370.             dc.w                $A82A
  1371.         EndM
  1372.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1373.         IMPORT_CFM_FUNCTION MovieExportToFile
  1374.     ENDIF
  1375.  
  1376. ;
  1377. ; pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1378. ;
  1379.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1380.         Macro
  1381.         _MovieExportGetAuxiliaryData
  1382.             move.l              #$00080083,-(sp)
  1383.             moveq               #0,D0
  1384.             dc.w                $A82A
  1385.         EndM
  1386.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1387.         IMPORT_CFM_FUNCTION MovieExportGetAuxiliaryData
  1388.     ENDIF
  1389.  
  1390. ;
  1391. ; pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1392. ;
  1393.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1394.         Macro
  1395.         _MovieExportSetProgressProc
  1396.             move.l              #$00080084,-(sp)
  1397.             moveq               #0,D0
  1398.             dc.w                $A82A
  1399.         EndM
  1400.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1401.         IMPORT_CFM_FUNCTION MovieExportSetProgressProc
  1402.     ENDIF
  1403.  
  1404. ;
  1405. ; pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1406. ;
  1407.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1408.         Macro
  1409.         _MovieExportSetSampleDescription
  1410.             move.l              #$00080085,-(sp)
  1411.             moveq               #0,D0
  1412.             dc.w                $A82A
  1413.         EndM
  1414.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1415.         IMPORT_CFM_FUNCTION MovieExportSetSampleDescription
  1416.     ENDIF
  1417.  
  1418. ;
  1419. ; pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1420. ;
  1421.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1422.         Macro
  1423.         _MovieExportDoUserDialog
  1424.             move.l              #$00140086,-(sp)
  1425.             moveq               #0,D0
  1426.             dc.w                $A82A
  1427.         EndM
  1428.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1429.         IMPORT_CFM_FUNCTION MovieExportDoUserDialog
  1430.     ENDIF
  1431.  
  1432. ;
  1433. ; pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1434. ;
  1435.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1436.         Macro
  1437.         _MovieExportGetCreatorType
  1438.             move.l              #$00040087,-(sp)
  1439.             moveq               #0,D0
  1440.             dc.w                $A82A
  1441.         EndM
  1442.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1443.         IMPORT_CFM_FUNCTION MovieExportGetCreatorType
  1444.     ENDIF
  1445.  
  1446. ;
  1447. ; pascal ComponentResult MovieExportToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1448. ;
  1449.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1450.         Macro
  1451.         _MovieExportToDataRef
  1452.             move.l              #$00180088,-(sp)
  1453.             moveq               #0,D0
  1454.             dc.w                $A82A
  1455.         EndM
  1456.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1457.         IMPORT_CFM_FUNCTION MovieExportToDataRef
  1458.     ENDIF
  1459.  
  1460. ;
  1461. ; pascal ComponentResult MovieExportFromProceduresToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType)
  1462. ;
  1463.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1464.         Macro
  1465.         _MovieExportFromProceduresToDataRef
  1466.             move.l              #$00080089,-(sp)
  1467.             moveq               #0,D0
  1468.             dc.w                $A82A
  1469.         EndM
  1470.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1471.         IMPORT_CFM_FUNCTION MovieExportFromProceduresToDataRef
  1472.     ENDIF
  1473.  
  1474. ;
  1475. ; pascal ComponentResult MovieExportAddDataSource(MovieExportComponent ci, OSType trackType, TimeScale scale, long *trackID, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1476. ;
  1477.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1478.         Macro
  1479.         _MovieExportAddDataSource
  1480.             move.l              #$0018008A,-(sp)
  1481.             moveq               #0,D0
  1482.             dc.w                $A82A
  1483.         EndM
  1484.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1485.         IMPORT_CFM_FUNCTION MovieExportAddDataSource
  1486.     ENDIF
  1487.  
  1488. ;
  1489. ; pascal ComponentResult MovieExportValidate(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, Boolean *valid)
  1490. ;
  1491.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1492.         Macro
  1493.         _MovieExportValidate
  1494.             move.l              #$000C008B,-(sp)
  1495.             moveq               #0,D0
  1496.             dc.w                $A82A
  1497.         EndM
  1498.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1499.         IMPORT_CFM_FUNCTION MovieExportValidate
  1500.     ENDIF
  1501.  
  1502. ;
  1503. ; pascal ComponentResult MovieExportGetSettingsAsAtomContainer(MovieExportComponent ci, QTAtomContainer *settings)
  1504. ;
  1505.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1506.         Macro
  1507.         _MovieExportGetSettingsAsAtomContainer
  1508.             move.l              #$0004008C,-(sp)
  1509.             moveq               #0,D0
  1510.             dc.w                $A82A
  1511.         EndM
  1512.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1513.         IMPORT_CFM_FUNCTION MovieExportGetSettingsAsAtomContainer
  1514.     ENDIF
  1515.  
  1516. ;
  1517. ; pascal ComponentResult MovieExportSetSettingsFromAtomContainer(MovieExportComponent ci, QTAtomContainer settings)
  1518. ;
  1519.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1520.         Macro
  1521.         _MovieExportSetSettingsFromAtomContainer
  1522.             move.l              #$0004008D,-(sp)
  1523.             moveq               #0,D0
  1524.             dc.w                $A82A
  1525.         EndM
  1526.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1527.         IMPORT_CFM_FUNCTION MovieExportSetSettingsFromAtomContainer
  1528.     ENDIF
  1529.  
  1530. ;
  1531. ; pascal ComponentResult MovieExportGetFileNameExtension(MovieExportComponent ci, OSType *extension)
  1532. ;
  1533.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1534.         Macro
  1535.         _MovieExportGetFileNameExtension
  1536.             move.l              #$0004008E,-(sp)
  1537.             moveq               #0,D0
  1538.             dc.w                $A82A
  1539.         EndM
  1540.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1541.         IMPORT_CFM_FUNCTION MovieExportGetFileNameExtension
  1542.     ENDIF
  1543.  
  1544. ;
  1545. ; pascal ComponentResult MovieExportGetShortFileTypeString(MovieExportComponent ci, Str255 typeString)
  1546. ;
  1547.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1548.         Macro
  1549.         _MovieExportGetShortFileTypeString
  1550.             move.l              #$0004008F,-(sp)
  1551.             moveq               #0,D0
  1552.             dc.w                $A82A
  1553.         EndM
  1554.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1555.         IMPORT_CFM_FUNCTION MovieExportGetShortFileTypeString
  1556.     ENDIF
  1557.  
  1558. ;
  1559. ; pascal ComponentResult MovieExportGetSourceMediaType(MovieExportComponent ci, OSType *mediaType)
  1560. ;
  1561.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1562.         Macro
  1563.         _MovieExportGetSourceMediaType
  1564.             move.l              #$00040090,-(sp)
  1565.             moveq               #0,D0
  1566.             dc.w                $A82A
  1567.         EndM
  1568.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1569.         IMPORT_CFM_FUNCTION MovieExportGetSourceMediaType
  1570.     ENDIF
  1571.  
  1572.      IF ¬ TARGET_CPU_PPC THEN 
  1573. ;  Text Export Display Info data structure
  1574. TextDisplayData            RECORD 0
  1575. displayFlags             ds.l    1                ; offset: $0 (0)
  1576. textJustification         ds.l    1                ; offset: $4 (4)
  1577. bgColor                     ds        RGBColor        ; offset: $8 (8)
  1578. textBox                     ds        Rect            ; offset: $E (14)
  1579. beginHilite                 ds.w    1                ; offset: $16 (22)
  1580. endHilite                 ds.w    1                ; offset: $18 (24)
  1581. hiliteColor                 ds        RGBColor        ; offset: $1A (26)
  1582. doHiliteColor             ds.b    1                ; offset: $20 (32)
  1583. filler                     ds.b    1                ; offset: $21 (33)
  1584. scrollDelayDur             ds.l    1                ; offset: $22 (34)
  1585. dropShadowOffset         ds        Point            ; offset: $26 (38)
  1586. dropShadowTransparency     ds.w    1                ; offset: $2A (42)
  1587. sizeof                     EQU *                    ; size:   $2C (44)
  1588.                         ENDR
  1589.     ENDIF
  1590. ; typedef ComponentInstance             TextExportComponent
  1591.  
  1592. ; typedef ComponentInstance             GraphicImageMovieImportComponent
  1593.  
  1594. ;
  1595. ; pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1596. ;
  1597.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1598.         Macro
  1599.         _TextExportGetDisplayData
  1600.             move.l              #$00040100,-(sp)
  1601.             moveq               #0,D0
  1602.             dc.w                $A82A
  1603.         EndM
  1604.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1605.         IMPORT_CFM_FUNCTION TextExportGetDisplayData
  1606.     ENDIF
  1607.  
  1608. ;
  1609. ; pascal ComponentResult TextExportGetTimeFraction(TextExportComponent ci, long *movieTimeFraction)
  1610. ;
  1611.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1612.         Macro
  1613.         _TextExportGetTimeFraction
  1614.             move.l              #$00040101,-(sp)
  1615.             moveq               #0,D0
  1616.             dc.w                $A82A
  1617.         EndM
  1618.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1619.         IMPORT_CFM_FUNCTION TextExportGetTimeFraction
  1620.     ENDIF
  1621.  
  1622. ;
  1623. ; pascal ComponentResult TextExportSetTimeFraction(TextExportComponent ci, long movieTimeFraction)
  1624. ;
  1625.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1626.         Macro
  1627.         _TextExportSetTimeFraction
  1628.             move.l              #$00040102,-(sp)
  1629.             moveq               #0,D0
  1630.             dc.w                $A82A
  1631.         EndM
  1632.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1633.         IMPORT_CFM_FUNCTION TextExportSetTimeFraction
  1634.     ENDIF
  1635.  
  1636. ;
  1637. ; pascal ComponentResult TextExportGetSettings(TextExportComponent ci, long *setting)
  1638. ;
  1639.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1640.         Macro
  1641.         _TextExportGetSettings
  1642.             move.l              #$00040103,-(sp)
  1643.             moveq               #0,D0
  1644.             dc.w                $A82A
  1645.         EndM
  1646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1647.         IMPORT_CFM_FUNCTION TextExportGetSettings
  1648.     ENDIF
  1649.  
  1650. ;
  1651. ; pascal ComponentResult TextExportSetSettings(TextExportComponent ci, long setting)
  1652. ;
  1653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1654.         Macro
  1655.         _TextExportSetSettings
  1656.             move.l              #$00040104,-(sp)
  1657.             moveq               #0,D0
  1658.             dc.w                $A82A
  1659.         EndM
  1660.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1661.         IMPORT_CFM_FUNCTION TextExportSetSettings
  1662.     ENDIF
  1663.  
  1664.  
  1665. ;
  1666. ; pascal ComponentResult MIDIImportGetSettings(TextExportComponent ci, long *setting)
  1667. ;
  1668.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1669.         Macro
  1670.         _MIDIImportGetSettings
  1671.             move.l              #$00040100,-(sp)
  1672.             moveq               #0,D0
  1673.             dc.w                $A82A
  1674.         EndM
  1675.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1676.         IMPORT_CFM_FUNCTION MIDIImportGetSettings
  1677.     ENDIF
  1678.  
  1679. ;
  1680. ; pascal ComponentResult MIDIImportSetSettings(TextExportComponent ci, long setting)
  1681. ;
  1682.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1683.         Macro
  1684.         _MIDIImportSetSettings
  1685.             move.l              #$00040101,-(sp)
  1686.             moveq               #0,D0
  1687.             dc.w                $A82A
  1688.         EndM
  1689.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1690.         IMPORT_CFM_FUNCTION MIDIImportSetSettings
  1691.     ENDIF
  1692.  
  1693. ;
  1694. ; pascal ComponentResult MovieExportNewGetDataAndPropertiesProcs(MovieExportComponent ci, OSType trackType, TimeScale *scale, Movie theMovie, Track theTrack, TimeValue startTime, TimeValue duration, MovieExportGetPropertyUPP *getPropertyProc, MovieExportGetDataUPP *getDataProc, void **refCon)
  1695. ;
  1696.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1697.         Macro
  1698.         _MovieExportNewGetDataAndPropertiesProcs
  1699.             move.l              #$00240100,-(sp)
  1700.             moveq               #0,D0
  1701.             dc.w                $A82A
  1702.         EndM
  1703.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1704.         IMPORT_CFM_FUNCTION MovieExportNewGetDataAndPropertiesProcs
  1705.     ENDIF
  1706.  
  1707. ;
  1708. ; pascal ComponentResult MovieExportDisposeGetDataAndPropertiesProcs(MovieExportComponent ci, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1709. ;
  1710.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1711.         Macro
  1712.         _MovieExportDisposeGetDataAndPropertiesProcs
  1713.             move.l              #$000C0101,-(sp)
  1714.             moveq               #0,D0
  1715.             dc.w                $A82A
  1716.         EndM
  1717.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1718.         IMPORT_CFM_FUNCTION MovieExportDisposeGetDataAndPropertiesProcs
  1719.     ENDIF
  1720.  
  1721.  
  1722. movieExportWidth                EQU        'wdth'                ; pointer to Fixed
  1723. movieExportHeight                EQU        'hegt'                ; pointer to Fixed
  1724. movieExportDuration                EQU        'dura'                ; pointer to TimeRecord
  1725. movieExportVideoFilter            EQU        'iflt'                ; pointer to QTAtomContainer
  1726. ;
  1727. ; pascal ComponentResult GraphicsImageImportSetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean enable)
  1728. ;
  1729.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1730.         Macro
  1731.         _GraphicsImageImportSetSequenceEnabled
  1732.             move.l              #$00020100,-(sp)
  1733.             moveq               #0,D0
  1734.             dc.w                $A82A
  1735.         EndM
  1736.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1737.         IMPORT_CFM_FUNCTION GraphicsImageImportSetSequenceEnabled
  1738.     ENDIF
  1739.  
  1740. ;
  1741. ; pascal ComponentResult GraphicsImageImportGetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean *enable)
  1742. ;
  1743.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1744.         Macro
  1745.         _GraphicsImageImportGetSequenceEnabled
  1746.             move.l              #$00040101,-(sp)
  1747.             moveq               #0,D0
  1748.             dc.w                $A82A
  1749.         EndM
  1750.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1751.         IMPORT_CFM_FUNCTION GraphicsImageImportGetSequenceEnabled
  1752.     ENDIF
  1753.  
  1754.  
  1755.  
  1756.  
  1757.  
  1758.  
  1759.  
  1760.  
  1761. ; ***************
  1762. ;
  1763. ;    File Preview Components
  1764. ;
  1765. ;**************
  1766.  
  1767. ; typedef ComponentInstance             pnotComponent
  1768.  
  1769.  
  1770. pnotComponentWantsEvents        EQU        1
  1771. pnotComponentNeedsNoCache        EQU        2
  1772.  
  1773. ShowFilePreviewComponentType    EQU        'pnot'
  1774. CreateFilePreviewComponentType    EQU        'pmak'
  1775. ;
  1776. ; pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1777. ;
  1778.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1779.         Macro
  1780.         _PreviewShowData
  1781.             move.l              #$000C0001,-(sp)
  1782.             moveq               #0,D0
  1783.             dc.w                $A82A
  1784.         EndM
  1785.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1786.         IMPORT_CFM_FUNCTION PreviewShowData
  1787.     ENDIF
  1788.  
  1789. ;
  1790. ; pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1791. ;
  1792.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1793.         Macro
  1794.         _PreviewMakePreview
  1795.             move.l              #$00100002,-(sp)
  1796.             moveq               #0,D0
  1797.             dc.w                $A82A
  1798.         EndM
  1799.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1800.         IMPORT_CFM_FUNCTION PreviewMakePreview
  1801.     ENDIF
  1802.  
  1803. ;
  1804. ; pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1805. ;
  1806.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1807.         Macro
  1808.         _PreviewMakePreviewReference
  1809.             move.l              #$000C0003,-(sp)
  1810.             moveq               #0,D0
  1811.             dc.w                $A82A
  1812.         EndM
  1813.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1814.         IMPORT_CFM_FUNCTION PreviewMakePreviewReference
  1815.     ENDIF
  1816.  
  1817. ;
  1818. ; pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1819. ;
  1820.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1821.         Macro
  1822.         _PreviewEvent
  1823.             move.l              #$00080004,-(sp)
  1824.             moveq               #0,D0
  1825.             dc.w                $A82A
  1826.         EndM
  1827.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1828.         IMPORT_CFM_FUNCTION PreviewEvent
  1829.     ENDIF
  1830.  
  1831.  
  1832.  
  1833. ; typedef ComponentInstance             DataCompressorComponent
  1834.  
  1835. ; typedef ComponentInstance             DataDecompressorComponent
  1836.  
  1837. ; typedef ComponentInstance             DataCodecComponent
  1838.  
  1839.  
  1840. DataCompressorComponentType        EQU        'dcom'
  1841. DataDecompressorComponentType    EQU        'ddec'
  1842. AppleDataCompressorSubType        EQU        'adec'
  1843. zlibDataCompressorSubType        EQU        'zlib'
  1844.  
  1845. ; * These are DataCodec procedures *
  1846. ;
  1847. ; pascal ComponentResult DataCodecDecompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize)
  1848. ;
  1849.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1850.         Macro
  1851.         _DataCodecDecompress
  1852.             move.l              #$00100001,-(sp)
  1853.             moveq               #0,D0
  1854.             dc.w                $A82A
  1855.         EndM
  1856.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1857.         IMPORT_CFM_FUNCTION DataCodecDecompress
  1858.     ENDIF
  1859.  
  1860. ;
  1861. ; pascal ComponentResult DataCodecGetCompressBufferSize(DataCodecComponent dc, UInt32 srcSize, UInt32 *dstSize)
  1862. ;
  1863.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1864.         Macro
  1865.         _DataCodecGetCompressBufferSize
  1866.             move.l              #$00080002,-(sp)
  1867.             moveq               #0,D0
  1868.             dc.w                $A82A
  1869.         EndM
  1870.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1871.         IMPORT_CFM_FUNCTION DataCodecGetCompressBufferSize
  1872.     ENDIF
  1873.  
  1874. ;
  1875. ; pascal ComponentResult DataCodecCompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize, UInt32 *actualDstSize, UInt32 *decompressSlop)
  1876. ;
  1877.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1878.         Macro
  1879.         _DataCodecCompress
  1880.             move.l              #$00180003,-(sp)
  1881.             moveq               #0,D0
  1882.             dc.w                $A82A
  1883.         EndM
  1884.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1885.         IMPORT_CFM_FUNCTION DataCodecCompress
  1886.     ENDIF
  1887.  
  1888. ;
  1889. ; pascal ComponentResult DataCodecBeginInterruptSafe(DataCodecComponent dc, unsigned long maxSrcSize)
  1890. ;
  1891.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1892.         Macro
  1893.         _DataCodecBeginInterruptSafe
  1894.             move.l              #$00040004,-(sp)
  1895.             moveq               #0,D0
  1896.             dc.w                $A82A
  1897.         EndM
  1898.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1899.         IMPORT_CFM_FUNCTION DataCodecBeginInterruptSafe
  1900.     ENDIF
  1901.  
  1902. ;
  1903. ; pascal ComponentResult DataCodecEndInterruptSafe(DataCodecComponent dc)
  1904. ;
  1905.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1906.         Macro
  1907.         _DataCodecEndInterruptSafe
  1908.             move.l              #$00000005,-(sp)
  1909.             moveq               #0,D0
  1910.             dc.w                $A82A
  1911.         EndM
  1912.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1913.         IMPORT_CFM_FUNCTION DataCodecEndInterruptSafe
  1914.     ENDIF
  1915.  
  1916. ;
  1917. ; pascal ComponentResult DataCodecDecompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean *didFinish)
  1918. ;
  1919.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1920.         Macro
  1921.         _DataCodecDecompressPartial
  1922.             move.l              #$001C0006,-(sp)
  1923.             moveq               #0,D0
  1924.             dc.w                $A82A
  1925.         EndM
  1926.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1927.         IMPORT_CFM_FUNCTION DataCodecDecompressPartial
  1928.     ENDIF
  1929.  
  1930. ;
  1931. ; pascal ComponentResult DataCodecCompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean tryToFinish, Boolean *didFinish)
  1932. ;
  1933.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1934.         Macro
  1935.         _DataCodecCompressPartial
  1936.             move.l              #$001E0007,-(sp)
  1937.             moveq               #0,D0
  1938.             dc.w                $A82A
  1939.         EndM
  1940.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1941.         IMPORT_CFM_FUNCTION DataCodecCompressPartial
  1942.     ENDIF
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948.  
  1949. kDataHCanRead                    EQU        $00000001
  1950. kDataHSpecialRead                EQU        $00000002
  1951. kDataHSpecialReadFile            EQU        $00000004
  1952. kDataHCanWrite                    EQU        $00000008
  1953. kDataHSpecialWrite                EQU        $10
  1954. kDataHSpecialWriteFile            EQU        $20
  1955. kDataHCanStreamingWrite            EQU        $40
  1956. kDataHMustCheckDataRef            EQU        $80
  1957. DataHVolumeListRecord    RECORD 0
  1958. vRefNum                     ds.w    1                ; offset: $0 (0)
  1959. flags                     ds.l    1                ; offset: $2 (2)
  1960. sizeof                     EQU *                    ; size:   $6 (6)
  1961.                         ENDR
  1962. ; typedef struct DataHVolumeListRecord * DataHVolumeListPtr
  1963.  
  1964. ; typedef DataHVolumeListPtr *            DataHVolumeList
  1965.  
  1966.  
  1967. kDataHExtendedSchedule            EQU        'xtnd'
  1968. DataHScheduleRecord        RECORD 0
  1969. timeNeededBy             ds        TimeRecord        ; offset: $0 (0)
  1970. extendedID                 ds.l    1                ; offset: $10 (16)        ;  always is kDataHExtendedSchedule
  1971. extendedVers             ds.l    1                ; offset: $14 (20)        ;  always set to 0
  1972. priority                 ds.l    1                ; offset: $18 (24)        ;  100.0 or more means must have. lower numbers…
  1973. sizeof                     EQU *                    ; size:   $1C (28)
  1974.                         ENDR
  1975. ; typedef struct DataHScheduleRecord *    DataHSchedulePtr
  1976.  
  1977.  
  1978.  
  1979. ;
  1980. ; pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  1981. ;
  1982.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1983.         Macro
  1984.         _DataHGetData
  1985.             move.l              #$00100002,-(sp)
  1986.             moveq               #0,D0
  1987.             dc.w                $A82A
  1988.         EndM
  1989.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1990.         IMPORT_CFM_FUNCTION DataHGetData
  1991.     ENDIF
  1992.  
  1993. ;
  1994. ; pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  1995. ;
  1996.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1997.         Macro
  1998.         _DataHPutData
  1999.             move.l              #$00100003,-(sp)
  2000.             moveq               #0,D0
  2001.             dc.w                $A82A
  2002.         EndM
  2003.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2004.         IMPORT_CFM_FUNCTION DataHPutData
  2005.     ENDIF
  2006.  
  2007. ;
  2008. ; pascal ComponentResult DataHFlushData(DataHandler dh)
  2009. ;
  2010.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2011.         Macro
  2012.         _DataHFlushData
  2013.             move.l              #$00000004,-(sp)
  2014.             moveq               #0,D0
  2015.             dc.w                $A82A
  2016.         EndM
  2017.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2018.         IMPORT_CFM_FUNCTION DataHFlushData
  2019.     ENDIF
  2020.  
  2021. ;
  2022. ; pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  2023. ;
  2024.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2025.         Macro
  2026.         _DataHOpenForWrite
  2027.             move.l              #$00000005,-(sp)
  2028.             moveq               #0,D0
  2029.             dc.w                $A82A
  2030.         EndM
  2031.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2032.         IMPORT_CFM_FUNCTION DataHOpenForWrite
  2033.     ENDIF
  2034.  
  2035. ;
  2036. ; pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  2037. ;
  2038.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2039.         Macro
  2040.         _DataHCloseForWrite
  2041.             move.l              #$00000006,-(sp)
  2042.             moveq               #0,D0
  2043.             dc.w                $A82A
  2044.         EndM
  2045.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2046.         IMPORT_CFM_FUNCTION DataHCloseForWrite
  2047.     ENDIF
  2048.  
  2049.  
  2050. ;
  2051. ; pascal ComponentResult DataHOpenForRead(DataHandler dh)
  2052. ;
  2053.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2054.         Macro
  2055.         _DataHOpenForRead
  2056.             move.l              #$00000008,-(sp)
  2057.             moveq               #0,D0
  2058.             dc.w                $A82A
  2059.         EndM
  2060.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2061.         IMPORT_CFM_FUNCTION DataHOpenForRead
  2062.     ENDIF
  2063.  
  2064. ;
  2065. ; pascal ComponentResult DataHCloseForRead(DataHandler dh)
  2066. ;
  2067.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2068.         Macro
  2069.         _DataHCloseForRead
  2070.             move.l              #$00000009,-(sp)
  2071.             moveq               #0,D0
  2072.             dc.w                $A82A
  2073.         EndM
  2074.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2075.         IMPORT_CFM_FUNCTION DataHCloseForRead
  2076.     ENDIF
  2077.  
  2078. ;
  2079. ; pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  2080. ;
  2081.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2082.         Macro
  2083.         _DataHSetDataRef
  2084.             move.l              #$0004000A,-(sp)
  2085.             moveq               #0,D0
  2086.             dc.w                $A82A
  2087.         EndM
  2088.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2089.         IMPORT_CFM_FUNCTION DataHSetDataRef
  2090.     ENDIF
  2091.  
  2092. ;
  2093. ; pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  2094. ;
  2095.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2096.         Macro
  2097.         _DataHGetDataRef
  2098.             move.l              #$0004000B,-(sp)
  2099.             moveq               #0,D0
  2100.             dc.w                $A82A
  2101.         EndM
  2102.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2103.         IMPORT_CFM_FUNCTION DataHGetDataRef
  2104.     ENDIF
  2105.  
  2106. ;
  2107. ; pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  2108. ;
  2109.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2110.         Macro
  2111.         _DataHCompareDataRef
  2112.             move.l              #$0008000C,-(sp)
  2113.             moveq               #0,D0
  2114.             dc.w                $A82A
  2115.         EndM
  2116.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2117.         IMPORT_CFM_FUNCTION DataHCompareDataRef
  2118.     ENDIF
  2119.  
  2120. ;
  2121. ; pascal ComponentResult DataHTask(DataHandler dh)
  2122. ;
  2123.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2124.         Macro
  2125.         _DataHTask
  2126.             move.l              #$0000000D,-(sp)
  2127.             moveq               #0,D0
  2128.             dc.w                $A82A
  2129.         EndM
  2130.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2131.         IMPORT_CFM_FUNCTION DataHTask
  2132.     ENDIF
  2133.  
  2134. ;
  2135. ; pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  2136. ;
  2137.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2138.         Macro
  2139.         _DataHScheduleData
  2140.             move.l              #$0018000E,-(sp)
  2141.             moveq               #0,D0
  2142.             dc.w                $A82A
  2143.         EndM
  2144.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2145.         IMPORT_CFM_FUNCTION DataHScheduleData
  2146.     ENDIF
  2147.  
  2148. ;
  2149. ; pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  2150. ;
  2151.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2152.         Macro
  2153.         _DataHFinishData
  2154.             move.l              #$0006000F,-(sp)
  2155.             moveq               #0,D0
  2156.             dc.w                $A82A
  2157.         EndM
  2158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2159.         IMPORT_CFM_FUNCTION DataHFinishData
  2160.     ENDIF
  2161.  
  2162. ;
  2163. ; pascal ComponentResult DataHFlushCache(DataHandler dh)
  2164. ;
  2165.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2166.         Macro
  2167.         _DataHFlushCache
  2168.             move.l              #$00000010,-(sp)
  2169.             moveq               #0,D0
  2170.             dc.w                $A82A
  2171.         EndM
  2172.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2173.         IMPORT_CFM_FUNCTION DataHFlushCache
  2174.     ENDIF
  2175.  
  2176. ;
  2177. ; pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  2178. ;
  2179.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2180.         Macro
  2181.         _DataHResolveDataRef
  2182.             move.l              #$000A0011,-(sp)
  2183.             moveq               #0,D0
  2184.             dc.w                $A82A
  2185.         EndM
  2186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2187.         IMPORT_CFM_FUNCTION DataHResolveDataRef
  2188.     ENDIF
  2189.  
  2190. ;
  2191. ; pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  2192. ;
  2193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2194.         Macro
  2195.         _DataHGetFileSize
  2196.             move.l              #$00040012,-(sp)
  2197.             moveq               #0,D0
  2198.             dc.w                $A82A
  2199.         EndM
  2200.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2201.         IMPORT_CFM_FUNCTION DataHGetFileSize
  2202.     ENDIF
  2203.  
  2204. ;
  2205. ; pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  2206. ;
  2207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2208.         Macro
  2209.         _DataHCanUseDataRef
  2210.             move.l              #$00080013,-(sp)
  2211.             moveq               #0,D0
  2212.             dc.w                $A82A
  2213.         EndM
  2214.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2215.         IMPORT_CFM_FUNCTION DataHCanUseDataRef
  2216.     ENDIF
  2217.  
  2218. ;
  2219. ; pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  2220. ;
  2221.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2222.         Macro
  2223.         _DataHGetVolumeList
  2224.             move.l              #$00040014,-(sp)
  2225.             moveq               #0,D0
  2226.             dc.w                $A82A
  2227.         EndM
  2228.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2229.         IMPORT_CFM_FUNCTION DataHGetVolumeList
  2230.     ENDIF
  2231.  
  2232. ;
  2233. ; pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  2234. ;
  2235.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2236.         Macro
  2237.         _DataHWrite
  2238.             move.l              #$00140015,-(sp)
  2239.             moveq               #0,D0
  2240.             dc.w                $A82A
  2241.         EndM
  2242.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2243.         IMPORT_CFM_FUNCTION DataHWrite
  2244.     ENDIF
  2245.  
  2246. ;
  2247. ; pascal ComponentResult DataHPreextend(DataHandler dh, unsigned long maxToAdd, unsigned long *spaceAdded)
  2248. ;
  2249.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2250.         Macro
  2251.         _DataHPreextend
  2252.             move.l              #$00080016,-(sp)
  2253.             moveq               #0,D0
  2254.             dc.w                $A82A
  2255.         EndM
  2256.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2257.         IMPORT_CFM_FUNCTION DataHPreextend
  2258.     ENDIF
  2259.  
  2260. ;
  2261. ; pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  2262. ;
  2263.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2264.         Macro
  2265.         _DataHSetFileSize
  2266.             move.l              #$00040017,-(sp)
  2267.             moveq               #0,D0
  2268.             dc.w                $A82A
  2269.         EndM
  2270.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2271.         IMPORT_CFM_FUNCTION DataHSetFileSize
  2272.     ENDIF
  2273.  
  2274. ;
  2275. ; pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  2276. ;
  2277.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2278.         Macro
  2279.         _DataHGetFreeSpace
  2280.             move.l              #$00040018,-(sp)
  2281.             moveq               #0,D0
  2282.             dc.w                $A82A
  2283.         EndM
  2284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2285.         IMPORT_CFM_FUNCTION DataHGetFreeSpace
  2286.     ENDIF
  2287.  
  2288. ;
  2289. ; pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  2290. ;
  2291.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2292.         Macro
  2293.         _DataHCreateFile
  2294.             move.l              #$00060019,-(sp)
  2295.             moveq               #0,D0
  2296.             dc.w                $A82A
  2297.         EndM
  2298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2299.         IMPORT_CFM_FUNCTION DataHCreateFile
  2300.     ENDIF
  2301.  
  2302. ;
  2303. ; pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  2304. ;
  2305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2306.         Macro
  2307.         _DataHGetPreferredBlockSize
  2308.             move.l              #$0004001A,-(sp)
  2309.             moveq               #0,D0
  2310.             dc.w                $A82A
  2311.         EndM
  2312.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2313.         IMPORT_CFM_FUNCTION DataHGetPreferredBlockSize
  2314.     ENDIF
  2315.  
  2316. ;
  2317. ; pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  2318. ;
  2319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2320.         Macro
  2321.         _DataHGetDeviceIndex
  2322.             move.l              #$0004001B,-(sp)
  2323.             moveq               #0,D0
  2324.             dc.w                $A82A
  2325.         EndM
  2326.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2327.         IMPORT_CFM_FUNCTION DataHGetDeviceIndex
  2328.     ENDIF
  2329.  
  2330. ;
  2331. ; pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  2332. ;
  2333.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2334.         Macro
  2335.         _DataHIsStreamingDataHandler
  2336.             move.l              #$0004001C,-(sp)
  2337.             moveq               #0,D0
  2338.             dc.w                $A82A
  2339.         EndM
  2340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2341.         IMPORT_CFM_FUNCTION DataHIsStreamingDataHandler
  2342.     ENDIF
  2343.  
  2344. ;
  2345. ; pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  2346. ;
  2347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2348.         Macro
  2349.         _DataHGetDataInBuffer
  2350.             move.l              #$0008001D,-(sp)
  2351.             moveq               #0,D0
  2352.             dc.w                $A82A
  2353.         EndM
  2354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2355.         IMPORT_CFM_FUNCTION DataHGetDataInBuffer
  2356.     ENDIF
  2357.  
  2358. ;
  2359. ; pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  2360. ;
  2361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2362.         Macro
  2363.         _DataHGetScheduleAheadTime
  2364.             move.l              #$0004001E,-(sp)
  2365.             moveq               #0,D0
  2366.             dc.w                $A82A
  2367.         EndM
  2368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2369.         IMPORT_CFM_FUNCTION DataHGetScheduleAheadTime
  2370.     ENDIF
  2371.  
  2372. ;
  2373. ; pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  2374. ;
  2375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2376.         Macro
  2377.         _DataHSetCacheSizeLimit
  2378.             move.l              #$0004001F,-(sp)
  2379.             moveq               #0,D0
  2380.             dc.w                $A82A
  2381.         EndM
  2382.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2383.         IMPORT_CFM_FUNCTION DataHSetCacheSizeLimit
  2384.     ENDIF
  2385.  
  2386. ;
  2387. ; pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  2388. ;
  2389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2390.         Macro
  2391.         _DataHGetCacheSizeLimit
  2392.             move.l              #$00040020,-(sp)
  2393.             moveq               #0,D0
  2394.             dc.w                $A82A
  2395.         EndM
  2396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2397.         IMPORT_CFM_FUNCTION DataHGetCacheSizeLimit
  2398.     ENDIF
  2399.  
  2400. ;
  2401. ; pascal ComponentResult DataHGetMovie(DataHandler dh, Movie *theMovie, short *id)
  2402. ;
  2403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2404.         Macro
  2405.         _DataHGetMovie
  2406.             move.l              #$00080021,-(sp)
  2407.             moveq               #0,D0
  2408.             dc.w                $A82A
  2409.         EndM
  2410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2411.         IMPORT_CFM_FUNCTION DataHGetMovie
  2412.     ENDIF
  2413.  
  2414. ;
  2415. ; pascal ComponentResult DataHAddMovie(DataHandler dh, Movie theMovie, short *id)
  2416. ;
  2417.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2418.         Macro
  2419.         _DataHAddMovie
  2420.             move.l              #$00080022,-(sp)
  2421.             moveq               #0,D0
  2422.             dc.w                $A82A
  2423.         EndM
  2424.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2425.         IMPORT_CFM_FUNCTION DataHAddMovie
  2426.     ENDIF
  2427.  
  2428. ;
  2429. ; pascal ComponentResult DataHUpdateMovie(DataHandler dh, Movie theMovie, short id)
  2430. ;
  2431.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2432.         Macro
  2433.         _DataHUpdateMovie
  2434.             move.l              #$00060023,-(sp)
  2435.             moveq               #0,D0
  2436.             dc.w                $A82A
  2437.         EndM
  2438.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2439.         IMPORT_CFM_FUNCTION DataHUpdateMovie
  2440.     ENDIF
  2441.  
  2442. ;
  2443. ; pascal ComponentResult DataHDoesBuffer(DataHandler dh, Boolean *buffersReads, Boolean *buffersWrites)
  2444. ;
  2445.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2446.         Macro
  2447.         _DataHDoesBuffer
  2448.             move.l              #$00080024,-(sp)
  2449.             moveq               #0,D0
  2450.             dc.w                $A82A
  2451.         EndM
  2452.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2453.         IMPORT_CFM_FUNCTION DataHDoesBuffer
  2454.     ENDIF
  2455.  
  2456. ;
  2457. ; pascal ComponentResult DataHGetFileName(DataHandler dh, Str255 str)
  2458. ;
  2459.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2460.         Macro
  2461.         _DataHGetFileName
  2462.             move.l              #$00040025,-(sp)
  2463.             moveq               #0,D0
  2464.             dc.w                $A82A
  2465.         EndM
  2466.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2467.         IMPORT_CFM_FUNCTION DataHGetFileName
  2468.     ENDIF
  2469.  
  2470. ;
  2471. ; pascal ComponentResult DataHGetAvailableFileSize(DataHandler dh, long *fileSize)
  2472. ;
  2473.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2474.         Macro
  2475.         _DataHGetAvailableFileSize
  2476.             move.l              #$00040026,-(sp)
  2477.             moveq               #0,D0
  2478.             dc.w                $A82A
  2479.         EndM
  2480.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2481.         IMPORT_CFM_FUNCTION DataHGetAvailableFileSize
  2482.     ENDIF
  2483.  
  2484. ;
  2485. ; pascal ComponentResult DataHGetMacOSFileType(DataHandler dh, OSType *fileType)
  2486. ;
  2487.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2488.         Macro
  2489.         _DataHGetMacOSFileType
  2490.             move.l              #$00040027,-(sp)
  2491.             moveq               #0,D0
  2492.             dc.w                $A82A
  2493.         EndM
  2494.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2495.         IMPORT_CFM_FUNCTION DataHGetMacOSFileType
  2496.     ENDIF
  2497.  
  2498. ;
  2499. ; pascal ComponentResult DataHGetMIMEType(DataHandler dh, Str255 mimeType)
  2500. ;
  2501.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2502.         Macro
  2503.         _DataHGetMIMEType
  2504.             move.l              #$00040028,-(sp)
  2505.             moveq               #0,D0
  2506.             dc.w                $A82A
  2507.         EndM
  2508.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2509.         IMPORT_CFM_FUNCTION DataHGetMIMEType
  2510.     ENDIF
  2511.  
  2512. ;
  2513. ; pascal ComponentResult DataHSetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle dataRef)
  2514. ;
  2515.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2516.         Macro
  2517.         _DataHSetDataRefWithAnchor
  2518.             move.l              #$000C0029,-(sp)
  2519.             moveq               #0,D0
  2520.             dc.w                $A82A
  2521.         EndM
  2522.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2523.         IMPORT_CFM_FUNCTION DataHSetDataRefWithAnchor
  2524.     ENDIF
  2525.  
  2526. ;
  2527. ; pascal ComponentResult DataHGetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle *dataRef)
  2528. ;
  2529.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2530.         Macro
  2531.         _DataHGetDataRefWithAnchor
  2532.             move.l              #$000C002A,-(sp)
  2533.             moveq               #0,D0
  2534.             dc.w                $A82A
  2535.         EndM
  2536.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2537.         IMPORT_CFM_FUNCTION DataHGetDataRefWithAnchor
  2538.     ENDIF
  2539.  
  2540. ;
  2541. ; pascal ComponentResult DataHSetMacOSFileType(DataHandler dh, OSType fileType)
  2542. ;
  2543.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2544.         Macro
  2545.         _DataHSetMacOSFileType
  2546.             move.l              #$0004002B,-(sp)
  2547.             moveq               #0,D0
  2548.             dc.w                $A82A
  2549.         EndM
  2550.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2551.         IMPORT_CFM_FUNCTION DataHSetMacOSFileType
  2552.     ENDIF
  2553.  
  2554. ;
  2555. ; pascal ComponentResult DataHSetTimeBase(DataHandler dh, TimeBase tb)
  2556. ;
  2557.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2558.         Macro
  2559.         _DataHSetTimeBase
  2560.             move.l              #$0004002C,-(sp)
  2561.             moveq               #0,D0
  2562.             dc.w                $A82A
  2563.         EndM
  2564.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2565.         IMPORT_CFM_FUNCTION DataHSetTimeBase
  2566.     ENDIF
  2567.  
  2568.  
  2569. ;
  2570. ; pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  2571. ;
  2572.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2573.         Macro
  2574.         _DataHPlaybackHints
  2575.             move.l              #$00100103,-(sp)
  2576.             moveq               #0,D0
  2577.             dc.w                $A82A
  2578.         EndM
  2579.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2580.         IMPORT_CFM_FUNCTION DataHPlaybackHints
  2581.     ENDIF
  2582.  
  2583.  
  2584.  
  2585.  
  2586. ;  Standard type for video digitizers 
  2587.  
  2588. videoDigitizerComponentType        EQU        'vdig'
  2589. vdigInterfaceRev                EQU        2
  2590. ;  Input Format Standards 
  2591.  
  2592. ntscIn                            EQU        0                    ; current input format 
  2593. currentIn                        EQU        0                    ; ntsc input format 
  2594. palIn                            EQU        1                    ; pal input format 
  2595. secamIn                            EQU        2                    ; secam input format 
  2596. ntscReallyIn                    EQU        3                    ; ntsc input format 
  2597. ;  Input Formats 
  2598.  
  2599. compositeIn                        EQU        0                    ; input is composite format 
  2600. sVideoIn                        EQU        1                    ; input is sVideo format 
  2601. rgbComponentIn                    EQU        2                    ; input is rgb component format 
  2602. rgbComponentSyncIn                EQU        3                    ; input is rgb component format (sync on green?)
  2603. yuvComponentIn                    EQU        4                    ; input is yuv component format 
  2604. yuvComponentSyncIn                EQU        5                    ; input is yuv component format (sync on green?) 
  2605. tvTunerIn                        EQU        6
  2606. sdiIn                            EQU        7
  2607.  
  2608. ;  Video Digitizer PlayThru States 
  2609.  
  2610. vdPlayThruOff                    EQU        0
  2611. vdPlayThruOn                    EQU        1
  2612. ;  Input Color Space Modes 
  2613.  
  2614. vdDigitizerBW                    EQU        0                    ; black and white 
  2615. vdDigitizerRGB                    EQU        1                    ; rgb color 
  2616. ;  Phase Lock Loop Modes 
  2617.  
  2618. vdBroadcastMode                    EQU        0                    ; Broadcast / Laser Disk video mode 
  2619. vdVTRMode                        EQU        1                    ; VCR / Magnetic media mode 
  2620. ;  Field Select Options 
  2621.  
  2622. vdUseAnyField                    EQU        0                    ; Digitizers choice on field use 
  2623. vdUseOddField                    EQU        1                    ; Use odd field for half size vert and smaller 
  2624. vdUseEvenField                    EQU        2                    ; Use even field for half size vert and smaller 
  2625. ;  vdig types 
  2626.  
  2627. vdTypeBasic                        EQU        0                    ; basic, no clipping 
  2628. vdTypeAlpha                        EQU        1                    ; supports clipping with alpha channel 
  2629. vdTypeMask                        EQU        2                    ; supports clipping with mask plane 
  2630. vdTypeKey                        EQU        3                    ; supports clipping with key color(s) 
  2631.  
  2632.  
  2633. ;  Digitizer Input Capability/Current Flags    
  2634.  
  2635. digiInDoesNTSC                    EQU        $00000001            ; digitizer supports NTSC input format 
  2636. digiInDoesPAL                    EQU        $00000002            ; digitizer supports PAL input format 
  2637. digiInDoesSECAM                    EQU        $00000004            ; digitizer supports SECAM input format 
  2638. digiInDoesGenLock                EQU        $00000080            ; digitizer does genlock 
  2639. digiInDoesComposite                EQU        $00000100            ; digitizer supports composite input type 
  2640. digiInDoesSVideo                EQU        $00000200            ; digitizer supports S-Video input type 
  2641. digiInDoesComponent                EQU        $00000400            ; digitizer supports component = rgb, input type 
  2642. digiInVTR_Broadcast                EQU        $00000800            ; digitizer can differentiate between the two 
  2643. digiInDoesColor                    EQU        $00001000            ; digitizer supports color 
  2644. digiInDoesBW                    EQU        $00002000            ; digitizer supports black & white 
  2645.                                                             ; Digitizer Input Current Flags = these are valid only during active operating conditions,    
  2646. digiInSignalLock                EQU        $80000000            ; digitizer detects input signal is locked, this bit = horiz lock || vertical lock 
  2647.  
  2648. ;  Digitizer Output Capability/Current Flags 
  2649.  
  2650. digiOutDoes1                    EQU        $00000001            ; digitizer supports 1 bit pixels 
  2651. digiOutDoes2                    EQU        $00000002            ; digitizer supports 2 bit pixels 
  2652. digiOutDoes4                    EQU        $00000004            ; digitizer supports 4 bit pixels 
  2653. digiOutDoes8                    EQU        $00000008            ; digitizer supports 8 bit pixels 
  2654. digiOutDoes16                    EQU        $00000010            ; digitizer supports 16 bit pixels 
  2655. digiOutDoes32                    EQU        $00000020            ; digitizer supports 32 bit pixels 
  2656. digiOutDoesDither                EQU        $00000040            ; digitizer dithers in indexed modes 
  2657. digiOutDoesStretch                EQU        $00000080            ; digitizer can arbitrarily stretch 
  2658. digiOutDoesShrink                EQU        $00000100            ; digitizer can arbitrarily shrink 
  2659. digiOutDoesMask                    EQU        $00000200            ; digitizer can mask to clipping regions 
  2660. digiOutDoesDouble                EQU        $00000800            ; digitizer can stretch to exactly double size 
  2661. digiOutDoesQuad                    EQU        $00001000            ; digitizer can stretch exactly quadruple size 
  2662. digiOutDoesQuarter                EQU        $00002000            ; digitizer can shrink to exactly quarter size 
  2663. digiOutDoesSixteenth            EQU        $00004000            ; digitizer can shrink to exactly sixteenth size 
  2664. digiOutDoesRotate                EQU        $00008000            ; digitizer supports rotate transformations 
  2665. digiOutDoesHorizFlip            EQU        $00010000            ; digitizer supports horizontal flips Sx < 0 
  2666. digiOutDoesVertFlip                EQU        $00020000            ; digitizer supports vertical flips Sy < 0 
  2667. digiOutDoesSkew                    EQU        $00040000            ; digitizer supports skew = shear,twist, 
  2668. digiOutDoesBlend                EQU        $00080000
  2669. digiOutDoesWarp                    EQU        $00100000
  2670. digiOutDoesHW_DMA                EQU        $00200000            ; digitizer not constrained to local device 
  2671. digiOutDoesHWPlayThru            EQU        $00400000            ; digitizer doesn't need time to play thru 
  2672. digiOutDoesILUT                    EQU        $00800000            ; digitizer does inverse LUT for index modes 
  2673. digiOutDoesKeyColor                EQU        $01000000            ; digitizer does key color functions too 
  2674. digiOutDoesAsyncGrabs            EQU        $02000000            ; digitizer supports async grabs 
  2675. digiOutDoesUnreadableScreenBits    EQU        $04000000            ; playthru doesn't generate readable bits on screen
  2676. digiOutDoesCompress                EQU        $08000000            ; supports alternate output data types 
  2677. digiOutDoesCompressOnly            EQU        $10000000            ; can't provide raw frames anywhere 
  2678. digiOutDoesPlayThruDuringCompress EQU    $20000000            ; digi can do playthru while providing compressed data 
  2679. digiOutDoesCompressPartiallyVisible EQU    $40000000            ; digi doesn't need all bits visible on screen to do hardware compress 
  2680. ;  Types 
  2681. ; typedef ComponentInstance             VideoDigitizerComponent
  2682.  
  2683. ; typedef ComponentResult                 VideoDigitizerError
  2684.  
  2685. DigitizerInfo            RECORD 0
  2686. vdigType                 ds.w    1                ; offset: $0 (0)
  2687. inputCapabilityFlags     ds.l    1                ; offset: $2 (2)
  2688. outputCapabilityFlags     ds.l    1                ; offset: $6 (6)
  2689. inputCurrentFlags         ds.l    1                ; offset: $A (10)
  2690. outputCurrentFlags         ds.l    1                ; offset: $E (14)
  2691. slot                     ds.w    1                ; offset: $12 (18)        ;  temporary for connection purposes 
  2692. gdh                         ds.l    1                ; offset: $14 (20)        ;  temporary for digitizers that have preferred screen 
  2693. maskgdh                     ds.l    1                ; offset: $18 (24)        ;  temporary for digitizers that have mask planes 
  2694. minDestHeight             ds.w    1                ; offset: $1C (28)        ;  Smallest resizable height 
  2695. minDestWidth             ds.w    1                ; offset: $1E (30)        ;  Smallest resizable width 
  2696. maxDestHeight             ds.w    1                ; offset: $20 (32)        ;  Largest resizable height 
  2697. maxDestWidth             ds.w    1                ; offset: $22 (34)        ;  Largest resizable height 
  2698. blendLevels                 ds.w    1                ; offset: $24 (36)        ;  Number of blend levels supported (2 if 1 bit mask) 
  2699. reserved                 ds.l    1                ; offset: $26 (38)        ;  reserved 
  2700. sizeof                     EQU *                    ; size:   $2A (42)
  2701.                         ENDR
  2702. VdigType                RECORD 0
  2703. digType                     ds.l    1                ; offset: $0 (0)
  2704. reserved                 ds.l    1                ; offset: $4 (4)
  2705. sizeof                     EQU *                    ; size:   $8 (8)
  2706.                         ENDR
  2707. VdigTypeList            RECORD 0
  2708. count                     ds.w    1                ; offset: $0 (0)
  2709. list                     ds        VdigType        ; offset: $2 (2) <-- really an array of length one
  2710. sizeof                     EQU *                    ; size:   $A (10)
  2711.                         ENDR
  2712. VdigBufferRec            RECORD 0
  2713. dest                     ds.l    1                ; offset: $0 (0)
  2714. location                 ds        Point            ; offset: $4 (4)
  2715. reserved                 ds.l    1                ; offset: $8 (8)
  2716. sizeof                     EQU *                    ; size:   $C (12)
  2717.                         ENDR
  2718. VdigBufferRecList        RECORD 0
  2719. count                     ds.w    1                ; offset: $0 (0)
  2720. matrix                     ds.l    1                ; offset: $2 (2)
  2721. mask                     ds.l    1                ; offset: $6 (6)
  2722. list                     ds        VdigBufferRec    ; offset: $A (10) <-- really an array of length one
  2723. sizeof                     EQU *                    ; size:   $16 (22)
  2724.                         ENDR
  2725. ; typedef struct VdigBufferRecList *    VdigBufferRecListPtr
  2726.  
  2727. ; typedef VdigBufferRecListPtr *        VdigBufferRecListHandle
  2728.  
  2729. VDCompressionList        RECORD 0
  2730. codec                     ds.l    1                ; offset: $0 (0)
  2731. cType                     ds.l    1                ; offset: $4 (4)
  2732. typeName                 ds        Str63            ; offset: $8 (8)
  2733. name                     ds        Str63            ; offset: $48 (72)
  2734. formatFlags                 ds.l    1                ; offset: $88 (136)
  2735. compressFlags             ds.l    1                ; offset: $8C (140)
  2736. reserved                 ds.l    1                ; offset: $90 (144)
  2737. sizeof                     EQU *                    ; size:   $94 (148)
  2738.                         ENDR
  2739. ; typedef struct VDCompressionList *    VDCompressionListPtr
  2740.  
  2741. ; typedef VDCompressionListPtr *        VDCompressionListHandle
  2742.  
  2743.  
  2744. dmaDepth1                        EQU        1
  2745. dmaDepth2                        EQU        2
  2746. dmaDepth4                        EQU        4
  2747. dmaDepth8                        EQU        8
  2748. dmaDepth16                        EQU        16
  2749. dmaDepth32                        EQU        32
  2750. dmaDepth2Gray                    EQU        64
  2751. dmaDepth4Gray                    EQU        128
  2752. dmaDepth8Gray                    EQU        256
  2753.  
  2754. kVDIGControlledFrameRate        EQU        -1
  2755.  
  2756. ;
  2757. ; pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  2758. ;
  2759.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2760.         Macro
  2761.         _VDGetMaxSrcRect
  2762.             move.l              #$00060001,-(sp)
  2763.             moveq               #0,D0
  2764.             dc.w                $A82A
  2765.         EndM
  2766.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2767.         IMPORT_CFM_FUNCTION VDGetMaxSrcRect
  2768.     ENDIF
  2769.  
  2770. ;
  2771. ; pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  2772. ;
  2773.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2774.         Macro
  2775.         _VDGetActiveSrcRect
  2776.             move.l              #$00060002,-(sp)
  2777.             moveq               #0,D0
  2778.             dc.w                $A82A
  2779.         EndM
  2780.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2781.         IMPORT_CFM_FUNCTION VDGetActiveSrcRect
  2782.     ENDIF
  2783.  
  2784. ;
  2785. ; pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2786. ;
  2787.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2788.         Macro
  2789.         _VDSetDigitizerRect
  2790.             move.l              #$00040003,-(sp)
  2791.             moveq               #0,D0
  2792.             dc.w                $A82A
  2793.         EndM
  2794.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2795.         IMPORT_CFM_FUNCTION VDSetDigitizerRect
  2796.     ENDIF
  2797.  
  2798. ;
  2799. ; pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2800. ;
  2801.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2802.         Macro
  2803.         _VDGetDigitizerRect
  2804.             move.l              #$00040004,-(sp)
  2805.             moveq               #0,D0
  2806.             dc.w                $A82A
  2807.         EndM
  2808.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2809.         IMPORT_CFM_FUNCTION VDGetDigitizerRect
  2810.     ENDIF
  2811.  
  2812. ;
  2813. ; pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  2814. ;
  2815.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2816.         Macro
  2817.         _VDGetVBlankRect
  2818.             move.l              #$00060005,-(sp)
  2819.             moveq               #0,D0
  2820.             dc.w                $A82A
  2821.         EndM
  2822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2823.         IMPORT_CFM_FUNCTION VDGetVBlankRect
  2824.     ENDIF
  2825.  
  2826. ;
  2827. ; pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  2828. ;
  2829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2830.         Macro
  2831.         _VDGetMaskPixMap
  2832.             move.l              #$00040006,-(sp)
  2833.             moveq               #0,D0
  2834.             dc.w                $A82A
  2835.         EndM
  2836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2837.         IMPORT_CFM_FUNCTION VDGetMaskPixMap
  2838.     ENDIF
  2839.  
  2840. ;
  2841. ; pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  2842. ;
  2843.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2844.         Macro
  2845.         _VDGetPlayThruDestination
  2846.             move.l              #$00100008,-(sp)
  2847.             moveq               #0,D0
  2848.             dc.w                $A82A
  2849.         EndM
  2850.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2851.         IMPORT_CFM_FUNCTION VDGetPlayThruDestination
  2852.     ENDIF
  2853.  
  2854. ;
  2855. ; pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  2856. ;
  2857.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2858.         Macro
  2859.         _VDUseThisCLUT
  2860.             move.l              #$00040009,-(sp)
  2861.             moveq               #0,D0
  2862.             dc.w                $A82A
  2863.         EndM
  2864.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2865.         IMPORT_CFM_FUNCTION VDUseThisCLUT
  2866.     ENDIF
  2867.  
  2868. ;
  2869. ; pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  2870. ;
  2871.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2872.         Macro
  2873.         _VDSetInputGammaValue
  2874.             move.l              #$000C000A,-(sp)
  2875.             moveq               #0,D0
  2876.             dc.w                $A82A
  2877.         EndM
  2878.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2879.         IMPORT_CFM_FUNCTION VDSetInputGammaValue
  2880.     ENDIF
  2881.  
  2882. ;
  2883. ; pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  2884. ;
  2885.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2886.         Macro
  2887.         _VDGetInputGammaValue
  2888.             move.l              #$000C000B,-(sp)
  2889.             moveq               #0,D0
  2890.             dc.w                $A82A
  2891.         EndM
  2892.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2893.         IMPORT_CFM_FUNCTION VDGetInputGammaValue
  2894.     ENDIF
  2895.  
  2896. ;
  2897. ; pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2898. ;
  2899.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2900.         Macro
  2901.         _VDSetBrightness
  2902.             move.l              #$0004000C,-(sp)
  2903.             moveq               #0,D0
  2904.             dc.w                $A82A
  2905.         EndM
  2906.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2907.         IMPORT_CFM_FUNCTION VDSetBrightness
  2908.     ENDIF
  2909.  
  2910. ;
  2911. ; pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2912. ;
  2913.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2914.         Macro
  2915.         _VDGetBrightness
  2916.             move.l              #$0004000D,-(sp)
  2917.             moveq               #0,D0
  2918.             dc.w                $A82A
  2919.         EndM
  2920.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2921.         IMPORT_CFM_FUNCTION VDGetBrightness
  2922.     ENDIF
  2923.  
  2924. ;
  2925. ; pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2926. ;
  2927.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2928.         Macro
  2929.         _VDSetContrast
  2930.             move.l              #$0004000E,-(sp)
  2931.             moveq               #0,D0
  2932.             dc.w                $A82A
  2933.         EndM
  2934.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2935.         IMPORT_CFM_FUNCTION VDSetContrast
  2936.     ENDIF
  2937.  
  2938. ;
  2939. ; pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2940. ;
  2941.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2942.         Macro
  2943.         _VDSetHue
  2944.             move.l              #$0004000F,-(sp)
  2945.             moveq               #0,D0
  2946.             dc.w                $A82A
  2947.         EndM
  2948.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2949.         IMPORT_CFM_FUNCTION VDSetHue
  2950.     ENDIF
  2951.  
  2952. ;
  2953. ; pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2954. ;
  2955.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2956.         Macro
  2957.         _VDSetSharpness
  2958.             move.l              #$00040010,-(sp)
  2959.             moveq               #0,D0
  2960.             dc.w                $A82A
  2961.         EndM
  2962.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2963.         IMPORT_CFM_FUNCTION VDSetSharpness
  2964.     ENDIF
  2965.  
  2966. ;
  2967. ; pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2968. ;
  2969.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2970.         Macro
  2971.         _VDSetSaturation
  2972.             move.l              #$00040011,-(sp)
  2973.             moveq               #0,D0
  2974.             dc.w                $A82A
  2975.         EndM
  2976.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2977.         IMPORT_CFM_FUNCTION VDSetSaturation
  2978.     ENDIF
  2979.  
  2980. ;
  2981. ; pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2982. ;
  2983.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2984.         Macro
  2985.         _VDGetContrast
  2986.             move.l              #$00040012,-(sp)
  2987.             moveq               #0,D0
  2988.             dc.w                $A82A
  2989.         EndM
  2990.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2991.         IMPORT_CFM_FUNCTION VDGetContrast
  2992.     ENDIF
  2993.  
  2994. ;
  2995. ; pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2996. ;
  2997.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2998.         Macro
  2999.         _VDGetHue
  3000.             move.l              #$00040013,-(sp)
  3001.             moveq               #0,D0
  3002.             dc.w                $A82A
  3003.         EndM
  3004.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3005.         IMPORT_CFM_FUNCTION VDGetHue
  3006.     ENDIF
  3007.  
  3008. ;
  3009. ; pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  3010. ;
  3011.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3012.         Macro
  3013.         _VDGetSharpness
  3014.             move.l              #$00040014,-(sp)
  3015.             moveq               #0,D0
  3016.             dc.w                $A82A
  3017.         EndM
  3018.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3019.         IMPORT_CFM_FUNCTION VDGetSharpness
  3020.     ENDIF
  3021.  
  3022. ;
  3023. ; pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  3024. ;
  3025.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3026.         Macro
  3027.         _VDGetSaturation
  3028.             move.l              #$00040015,-(sp)
  3029.             moveq               #0,D0
  3030.             dc.w                $A82A
  3031.         EndM
  3032.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3033.         IMPORT_CFM_FUNCTION VDGetSaturation
  3034.     ENDIF
  3035.  
  3036. ;
  3037. ; pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  3038. ;
  3039.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3040.         Macro
  3041.         _VDGrabOneFrame
  3042.             move.l              #$00000016,-(sp)
  3043.             moveq               #0,D0
  3044.             dc.w                $A82A
  3045.         EndM
  3046.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3047.         IMPORT_CFM_FUNCTION VDGrabOneFrame
  3048.     ENDIF
  3049.  
  3050. ;
  3051. ; pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  3052. ;
  3053.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3054.         Macro
  3055.         _VDGetMaxAuxBuffer
  3056.             move.l              #$00080017,-(sp)
  3057.             moveq               #0,D0
  3058.             dc.w                $A82A
  3059.         EndM
  3060.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3061.         IMPORT_CFM_FUNCTION VDGetMaxAuxBuffer
  3062.     ENDIF
  3063.  
  3064. ;
  3065. ; pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  3066. ;
  3067.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3068.         Macro
  3069.         _VDGetDigitizerInfo
  3070.             move.l              #$00040019,-(sp)
  3071.             moveq               #0,D0
  3072.             dc.w                $A82A
  3073.         EndM
  3074.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3075.         IMPORT_CFM_FUNCTION VDGetDigitizerInfo
  3076.     ENDIF
  3077.  
  3078. ;
  3079. ; pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  3080. ;
  3081.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3082.         Macro
  3083.         _VDGetCurrentFlags
  3084.             move.l              #$0008001A,-(sp)
  3085.             moveq               #0,D0
  3086.             dc.w                $A82A
  3087.         EndM
  3088.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3089.         IMPORT_CFM_FUNCTION VDGetCurrentFlags
  3090.     ENDIF
  3091.  
  3092. ;
  3093. ; pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  3094. ;
  3095.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3096.         Macro
  3097.         _VDSetKeyColor
  3098.             move.l              #$0004001B,-(sp)
  3099.             moveq               #0,D0
  3100.             dc.w                $A82A
  3101.         EndM
  3102.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3103.         IMPORT_CFM_FUNCTION VDSetKeyColor
  3104.     ENDIF
  3105.  
  3106. ;
  3107. ; pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  3108. ;
  3109.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3110.         Macro
  3111.         _VDGetKeyColor
  3112.             move.l              #$0004001C,-(sp)
  3113.             moveq               #0,D0
  3114.             dc.w                $A82A
  3115.         EndM
  3116.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3117.         IMPORT_CFM_FUNCTION VDGetKeyColor
  3118.     ENDIF
  3119.  
  3120. ;
  3121. ; pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  3122. ;
  3123.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3124.         Macro
  3125.         _VDAddKeyColor
  3126.             move.l              #$0004001D,-(sp)
  3127.             moveq               #0,D0
  3128.             dc.w                $A82A
  3129.         EndM
  3130.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3131.         IMPORT_CFM_FUNCTION VDAddKeyColor
  3132.     ENDIF
  3133.  
  3134. ;
  3135. ; pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  3136. ;
  3137.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3138.         Macro
  3139.         _VDGetNextKeyColor
  3140.             move.l              #$0004001E,-(sp)
  3141.             moveq               #0,D0
  3142.             dc.w                $A82A
  3143.         EndM
  3144.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3145.         IMPORT_CFM_FUNCTION VDGetNextKeyColor
  3146.     ENDIF
  3147.  
  3148. ;
  3149. ; pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3150. ;
  3151.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3152.         Macro
  3153.         _VDSetKeyColorRange
  3154.             move.l              #$0008001F,-(sp)
  3155.             moveq               #0,D0
  3156.             dc.w                $A82A
  3157.         EndM
  3158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3159.         IMPORT_CFM_FUNCTION VDSetKeyColorRange
  3160.     ENDIF
  3161.  
  3162. ;
  3163. ; pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3164. ;
  3165.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3166.         Macro
  3167.         _VDGetKeyColorRange
  3168.             move.l              #$00080020,-(sp)
  3169.             moveq               #0,D0
  3170.             dc.w                $A82A
  3171.         EndM
  3172.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3173.         IMPORT_CFM_FUNCTION VDGetKeyColorRange
  3174.     ENDIF
  3175.  
  3176. ;
  3177. ; pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  3178. ;
  3179.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3180.         Macro
  3181.         _VDSetDigitizerUserInterrupt
  3182.             move.l              #$000C0021,-(sp)
  3183.             moveq               #0,D0
  3184.             dc.w                $A82A
  3185.         EndM
  3186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3187.         IMPORT_CFM_FUNCTION VDSetDigitizerUserInterrupt
  3188.     ENDIF
  3189.  
  3190. ;
  3191. ; pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  3192. ;
  3193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3194.         Macro
  3195.         _VDSetInputColorSpaceMode
  3196.             move.l              #$00020022,-(sp)
  3197.             moveq               #0,D0
  3198.             dc.w                $A82A
  3199.         EndM
  3200.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3201.         IMPORT_CFM_FUNCTION VDSetInputColorSpaceMode
  3202.     ENDIF
  3203.  
  3204. ;
  3205. ; pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  3206. ;
  3207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3208.         Macro
  3209.         _VDGetInputColorSpaceMode
  3210.             move.l              #$00040023,-(sp)
  3211.             moveq               #0,D0
  3212.             dc.w                $A82A
  3213.         EndM
  3214.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3215.         IMPORT_CFM_FUNCTION VDGetInputColorSpaceMode
  3216.     ENDIF
  3217.  
  3218. ;
  3219. ; pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  3220. ;
  3221.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3222.         Macro
  3223.         _VDSetClipState
  3224.             move.l              #$00020024,-(sp)
  3225.             moveq               #0,D0
  3226.             dc.w                $A82A
  3227.         EndM
  3228.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3229.         IMPORT_CFM_FUNCTION VDSetClipState
  3230.     ENDIF
  3231.  
  3232. ;
  3233. ; pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  3234. ;
  3235.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3236.         Macro
  3237.         _VDGetClipState
  3238.             move.l              #$00040025,-(sp)
  3239.             moveq               #0,D0
  3240.             dc.w                $A82A
  3241.         EndM
  3242.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3243.         IMPORT_CFM_FUNCTION VDGetClipState
  3244.     ENDIF
  3245.  
  3246. ;
  3247. ; pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3248. ;
  3249.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3250.         Macro
  3251.         _VDSetClipRgn
  3252.             move.l              #$00040026,-(sp)
  3253.             moveq               #0,D0
  3254.             dc.w                $A82A
  3255.         EndM
  3256.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3257.         IMPORT_CFM_FUNCTION VDSetClipRgn
  3258.     ENDIF
  3259.  
  3260. ;
  3261. ; pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3262. ;
  3263.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3264.         Macro
  3265.         _VDClearClipRgn
  3266.             move.l              #$00040027,-(sp)
  3267.             moveq               #0,D0
  3268.             dc.w                $A82A
  3269.         EndM
  3270.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3271.         IMPORT_CFM_FUNCTION VDClearClipRgn
  3272.     ENDIF
  3273.  
  3274. ;
  3275. ; pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  3276. ;
  3277.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3278.         Macro
  3279.         _VDGetCLUTInUse
  3280.             move.l              #$00040028,-(sp)
  3281.             moveq               #0,D0
  3282.             dc.w                $A82A
  3283.         EndM
  3284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3285.         IMPORT_CFM_FUNCTION VDGetCLUTInUse
  3286.     ENDIF
  3287.  
  3288. ;
  3289. ; pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  3290. ;
  3291.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3292.         Macro
  3293.         _VDSetPLLFilterType
  3294.             move.l              #$00020029,-(sp)
  3295.             moveq               #0,D0
  3296.             dc.w                $A82A
  3297.         EndM
  3298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3299.         IMPORT_CFM_FUNCTION VDSetPLLFilterType
  3300.     ENDIF
  3301.  
  3302. ;
  3303. ; pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  3304. ;
  3305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3306.         Macro
  3307.         _VDGetPLLFilterType
  3308.             move.l              #$0004002A,-(sp)
  3309.             moveq               #0,D0
  3310.             dc.w                $A82A
  3311.         EndM
  3312.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3313.         IMPORT_CFM_FUNCTION VDGetPLLFilterType
  3314.     ENDIF
  3315.  
  3316. ;
  3317. ; pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  3318. ;
  3319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3320.         Macro
  3321.         _VDGetMaskandValue
  3322.             move.l              #$000A002B,-(sp)
  3323.             moveq               #0,D0
  3324.             dc.w                $A82A
  3325.         EndM
  3326.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3327.         IMPORT_CFM_FUNCTION VDGetMaskandValue
  3328.     ENDIF
  3329.  
  3330. ;
  3331. ; pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  3332. ;
  3333.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3334.         Macro
  3335.         _VDSetMasterBlendLevel
  3336.             move.l              #$0004002C,-(sp)
  3337.             moveq               #0,D0
  3338.             dc.w                $A82A
  3339.         EndM
  3340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3341.         IMPORT_CFM_FUNCTION VDSetMasterBlendLevel
  3342.     ENDIF
  3343.  
  3344. ;
  3345. ; pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, RectPtr destRect, MatrixRecordPtr m, RgnHandle mask)
  3346. ;
  3347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3348.         Macro
  3349.         _VDSetPlayThruDestination
  3350.             move.l              #$0010002D,-(sp)
  3351.             moveq               #0,D0
  3352.             dc.w                $A82A
  3353.         EndM
  3354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3355.         IMPORT_CFM_FUNCTION VDSetPlayThruDestination
  3356.     ENDIF
  3357.  
  3358. ;
  3359. ; pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  3360. ;
  3361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3362.         Macro
  3363.         _VDSetPlayThruOnOff
  3364.             move.l              #$0002002E,-(sp)
  3365.             moveq               #0,D0
  3366.             dc.w                $A82A
  3367.         EndM
  3368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3369.         IMPORT_CFM_FUNCTION VDSetPlayThruOnOff
  3370.     ENDIF
  3371.  
  3372. ;
  3373. ; pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  3374. ;
  3375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3376.         Macro
  3377.         _VDSetFieldPreference
  3378.             move.l              #$0002002F,-(sp)
  3379.             moveq               #0,D0
  3380.             dc.w                $A82A
  3381.         EndM
  3382.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3383.         IMPORT_CFM_FUNCTION VDSetFieldPreference
  3384.     ENDIF
  3385.  
  3386. ;
  3387. ; pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  3388. ;
  3389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3390.         Macro
  3391.         _VDGetFieldPreference
  3392.             move.l              #$00040030,-(sp)
  3393.             moveq               #0,D0
  3394.             dc.w                $A82A
  3395.         EndM
  3396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3397.         IMPORT_CFM_FUNCTION VDGetFieldPreference
  3398.     ENDIF
  3399.  
  3400. ;
  3401. ; pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, RectPtr destRect, MatrixRecordPtr m)
  3402. ;
  3403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3404.         Macro
  3405.         _VDPreflightDestination
  3406.             move.l              #$00100032,-(sp)
  3407.             moveq               #0,D0
  3408.             dc.w                $A82A
  3409.         EndM
  3410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3411.         IMPORT_CFM_FUNCTION VDPreflightDestination
  3412.     ENDIF
  3413.  
  3414. ;
  3415. ; pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3416. ;
  3417.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3418.         Macro
  3419.         _VDPreflightGlobalRect
  3420.             move.l              #$00080033,-(sp)
  3421.             moveq               #0,D0
  3422.             dc.w                $A82A
  3423.         EndM
  3424.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3425.         IMPORT_CFM_FUNCTION VDPreflightGlobalRect
  3426.     ENDIF
  3427.  
  3428. ;
  3429. ; pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3430. ;
  3431.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3432.         Macro
  3433.         _VDSetPlayThruGlobalRect
  3434.             move.l              #$00080034,-(sp)
  3435.             moveq               #0,D0
  3436.             dc.w                $A82A
  3437.         EndM
  3438.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3439.         IMPORT_CFM_FUNCTION VDSetPlayThruGlobalRect
  3440.     ENDIF
  3441.  
  3442. ;
  3443. ; pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  3444. ;
  3445.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3446.         Macro
  3447.         _VDSetInputGammaRecord
  3448.             move.l              #$00040035,-(sp)
  3449.             moveq               #0,D0
  3450.             dc.w                $A82A
  3451.         EndM
  3452.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3453.         IMPORT_CFM_FUNCTION VDSetInputGammaRecord
  3454.     ENDIF
  3455.  
  3456. ;
  3457. ; pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  3458. ;
  3459.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3460.         Macro
  3461.         _VDGetInputGammaRecord
  3462.             move.l              #$00040036,-(sp)
  3463.             moveq               #0,D0
  3464.             dc.w                $A82A
  3465.         EndM
  3466.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3467.         IMPORT_CFM_FUNCTION VDGetInputGammaRecord
  3468.     ENDIF
  3469.  
  3470. ;
  3471. ; pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3472. ;
  3473.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3474.         Macro
  3475.         _VDSetBlackLevelValue
  3476.             move.l              #$00040037,-(sp)
  3477.             moveq               #0,D0
  3478.             dc.w                $A82A
  3479.         EndM
  3480.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3481.         IMPORT_CFM_FUNCTION VDSetBlackLevelValue
  3482.     ENDIF
  3483.  
  3484. ;
  3485. ; pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3486. ;
  3487.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3488.         Macro
  3489.         _VDGetBlackLevelValue
  3490.             move.l              #$00040038,-(sp)
  3491.             moveq               #0,D0
  3492.             dc.w                $A82A
  3493.         EndM
  3494.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3495.         IMPORT_CFM_FUNCTION VDGetBlackLevelValue
  3496.     ENDIF
  3497.  
  3498. ;
  3499. ; pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3500. ;
  3501.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3502.         Macro
  3503.         _VDSetWhiteLevelValue
  3504.             move.l              #$00040039,-(sp)
  3505.             moveq               #0,D0
  3506.             dc.w                $A82A
  3507.         EndM
  3508.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3509.         IMPORT_CFM_FUNCTION VDSetWhiteLevelValue
  3510.     ENDIF
  3511.  
  3512. ;
  3513. ; pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3514. ;
  3515.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3516.         Macro
  3517.         _VDGetWhiteLevelValue
  3518.             move.l              #$0004003A,-(sp)
  3519.             moveq               #0,D0
  3520.             dc.w                $A82A
  3521.         EndM
  3522.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3523.         IMPORT_CFM_FUNCTION VDGetWhiteLevelValue
  3524.     ENDIF
  3525.  
  3526. ;
  3527. ; pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  3528. ;
  3529.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3530.         Macro
  3531.         _VDGetVideoDefaults
  3532.             move.l              #$001C003B,-(sp)
  3533.             moveq               #0,D0
  3534.             dc.w                $A82A
  3535.         EndM
  3536.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3537.         IMPORT_CFM_FUNCTION VDGetVideoDefaults
  3538.     ENDIF
  3539.  
  3540. ;
  3541. ; pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  3542. ;
  3543.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3544.         Macro
  3545.         _VDGetNumberOfInputs
  3546.             move.l              #$0004003C,-(sp)
  3547.             moveq               #0,D0
  3548.             dc.w                $A82A
  3549.         EndM
  3550.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3551.         IMPORT_CFM_FUNCTION VDGetNumberOfInputs
  3552.     ENDIF
  3553.  
  3554. ;
  3555. ; pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  3556. ;
  3557.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3558.         Macro
  3559.         _VDGetInputFormat
  3560.             move.l              #$0006003D,-(sp)
  3561.             moveq               #0,D0
  3562.             dc.w                $A82A
  3563.         EndM
  3564.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3565.         IMPORT_CFM_FUNCTION VDGetInputFormat
  3566.     ENDIF
  3567.  
  3568. ;
  3569. ; pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  3570. ;
  3571.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3572.         Macro
  3573.         _VDSetInput
  3574.             move.l              #$0002003E,-(sp)
  3575.             moveq               #0,D0
  3576.             dc.w                $A82A
  3577.         EndM
  3578.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3579.         IMPORT_CFM_FUNCTION VDSetInput
  3580.     ENDIF
  3581.  
  3582. ;
  3583. ; pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  3584. ;
  3585.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3586.         Macro
  3587.         _VDGetInput
  3588.             move.l              #$0004003F,-(sp)
  3589.             moveq               #0,D0
  3590.             dc.w                $A82A
  3591.         EndM
  3592.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3593.         IMPORT_CFM_FUNCTION VDGetInput
  3594.     ENDIF
  3595.  
  3596. ;
  3597. ; pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  3598. ;
  3599.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3600.         Macro
  3601.         _VDSetInputStandard
  3602.             move.l              #$00020040,-(sp)
  3603.             moveq               #0,D0
  3604.             dc.w                $A82A
  3605.         EndM
  3606.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3607.         IMPORT_CFM_FUNCTION VDSetInputStandard
  3608.     ENDIF
  3609.  
  3610. ;
  3611. ; pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  3612. ;
  3613.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3614.         Macro
  3615.         _VDSetupBuffers
  3616.             move.l              #$00040041,-(sp)
  3617.             moveq               #0,D0
  3618.             dc.w                $A82A
  3619.         EndM
  3620.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3621.         IMPORT_CFM_FUNCTION VDSetupBuffers
  3622.     ENDIF
  3623.  
  3624. ;
  3625. ; pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  3626. ;
  3627.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3628.         Macro
  3629.         _VDGrabOneFrameAsync
  3630.             move.l              #$00020042,-(sp)
  3631.             moveq               #0,D0
  3632.             dc.w                $A82A
  3633.         EndM
  3634.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3635.         IMPORT_CFM_FUNCTION VDGrabOneFrameAsync
  3636.     ENDIF
  3637.  
  3638. ;
  3639. ; pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  3640. ;
  3641.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3642.         Macro
  3643.         _VDDone
  3644.             move.l              #$00020043,-(sp)
  3645.             moveq               #0,D0
  3646.             dc.w                $A82A
  3647.         EndM
  3648.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3649.         IMPORT_CFM_FUNCTION VDDone
  3650.     ENDIF
  3651.  
  3652. ;
  3653. ; pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  3654. ;
  3655.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3656.         Macro
  3657.         _VDSetCompression
  3658.             move.l              #$00160044,-(sp)
  3659.             moveq               #0,D0
  3660.             dc.w                $A82A
  3661.         EndM
  3662.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3663.         IMPORT_CFM_FUNCTION VDSetCompression
  3664.     ENDIF
  3665.  
  3666. ;
  3667. ; pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  3668. ;
  3669.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3670.         Macro
  3671.         _VDCompressOneFrameAsync
  3672.             move.l              #$00000045,-(sp)
  3673.             moveq               #0,D0
  3674.             dc.w                $A82A
  3675.         EndM
  3676.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3677.         IMPORT_CFM_FUNCTION VDCompressOneFrameAsync
  3678.     ENDIF
  3679.  
  3680. ;
  3681. ; pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  3682. ;
  3683.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3684.         Macro
  3685.         _VDCompressDone
  3686.             move.l              #$00140046,-(sp)
  3687.             moveq               #0,D0
  3688.             dc.w                $A82A
  3689.         EndM
  3690.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3691.         IMPORT_CFM_FUNCTION VDCompressDone
  3692.     ENDIF
  3693.  
  3694. ;
  3695. ; pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  3696. ;
  3697.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3698.         Macro
  3699.         _VDReleaseCompressBuffer
  3700.             move.l              #$00040047,-(sp)
  3701.             moveq               #0,D0
  3702.             dc.w                $A82A
  3703.         EndM
  3704.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3705.         IMPORT_CFM_FUNCTION VDReleaseCompressBuffer
  3706.     ENDIF
  3707.  
  3708. ;
  3709. ; pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  3710. ;
  3711.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3712.         Macro
  3713.         _VDGetImageDescription
  3714.             move.l              #$00040048,-(sp)
  3715.             moveq               #0,D0
  3716.             dc.w                $A82A
  3717.         EndM
  3718.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3719.         IMPORT_CFM_FUNCTION VDGetImageDescription
  3720.     ENDIF
  3721.  
  3722. ;
  3723. ; pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  3724. ;
  3725.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3726.         Macro
  3727.         _VDResetCompressSequence
  3728.             move.l              #$00000049,-(sp)
  3729.             moveq               #0,D0
  3730.             dc.w                $A82A
  3731.         EndM
  3732.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3733.         IMPORT_CFM_FUNCTION VDResetCompressSequence
  3734.     ENDIF
  3735.  
  3736. ;
  3737. ; pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  3738. ;
  3739.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3740.         Macro
  3741.         _VDSetCompressionOnOff
  3742.             move.l              #$0002004A,-(sp)
  3743.             moveq               #0,D0
  3744.             dc.w                $A82A
  3745.         EndM
  3746.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3747.         IMPORT_CFM_FUNCTION VDSetCompressionOnOff
  3748.     ENDIF
  3749.  
  3750. ;
  3751. ; pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  3752. ;
  3753.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3754.         Macro
  3755.         _VDGetCompressionTypes
  3756.             move.l              #$0004004B,-(sp)
  3757.             moveq               #0,D0
  3758.             dc.w                $A82A
  3759.         EndM
  3760.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3761.         IMPORT_CFM_FUNCTION VDGetCompressionTypes
  3762.     ENDIF
  3763.  
  3764. ;
  3765. ; pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  3766. ;
  3767.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3768.         Macro
  3769.         _VDSetTimeBase
  3770.             move.l              #$0004004C,-(sp)
  3771.             moveq               #0,D0
  3772.             dc.w                $A82A
  3773.         EndM
  3774.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3775.         IMPORT_CFM_FUNCTION VDSetTimeBase
  3776.     ENDIF
  3777.  
  3778. ;
  3779. ; pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  3780. ;
  3781.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3782.         Macro
  3783.         _VDSetFrameRate
  3784.             move.l              #$0004004D,-(sp)
  3785.             moveq               #0,D0
  3786.             dc.w                $A82A
  3787.         EndM
  3788.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3789.         IMPORT_CFM_FUNCTION VDSetFrameRate
  3790.     ENDIF
  3791.  
  3792. ;
  3793. ; pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  3794. ;
  3795.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3796.         Macro
  3797.         _VDGetDataRate
  3798.             move.l              #$000C004E,-(sp)
  3799.             moveq               #0,D0
  3800.             dc.w                $A82A
  3801.         EndM
  3802.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3803.         IMPORT_CFM_FUNCTION VDGetDataRate
  3804.     ENDIF
  3805.  
  3806. ;
  3807. ; pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  3808. ;
  3809.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3810.         Macro
  3811.         _VDGetSoundInputDriver
  3812.             move.l              #$0004004F,-(sp)
  3813.             moveq               #0,D0
  3814.             dc.w                $A82A
  3815.         EndM
  3816.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3817.         IMPORT_CFM_FUNCTION VDGetSoundInputDriver
  3818.     ENDIF
  3819.  
  3820. ;
  3821. ; pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  3822. ;
  3823.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3824.         Macro
  3825.         _VDGetDMADepths
  3826.             move.l              #$00080050,-(sp)
  3827.             moveq               #0,D0
  3828.             dc.w                $A82A
  3829.         EndM
  3830.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3831.         IMPORT_CFM_FUNCTION VDGetDMADepths
  3832.     ENDIF
  3833.  
  3834. ;
  3835. ; pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  3836. ;
  3837.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3838.         Macro
  3839.         _VDGetPreferredTimeScale
  3840.             move.l              #$00040051,-(sp)
  3841.             moveq               #0,D0
  3842.             dc.w                $A82A
  3843.         EndM
  3844.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3845.         IMPORT_CFM_FUNCTION VDGetPreferredTimeScale
  3846.     ENDIF
  3847.  
  3848. ;
  3849. ; pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  3850. ;
  3851.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3852.         Macro
  3853.         _VDReleaseAsyncBuffers
  3854.             move.l              #$00000052,-(sp)
  3855.             moveq               #0,D0
  3856.             dc.w                $A82A
  3857.         EndM
  3858.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3859.         IMPORT_CFM_FUNCTION VDReleaseAsyncBuffers
  3860.     ENDIF
  3861.  
  3862. ;  83 is reserved for compatibility reasons 
  3863. ;
  3864. ; pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  3865. ;
  3866.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3867.         Macro
  3868.         _VDSetDataRate
  3869.             move.l              #$00040054,-(sp)
  3870.             moveq               #0,D0
  3871.             dc.w                $A82A
  3872.         EndM
  3873.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3874.         IMPORT_CFM_FUNCTION VDSetDataRate
  3875.     ENDIF
  3876.  
  3877. ;
  3878. ; pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  3879. ;
  3880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3881.         Macro
  3882.         _VDGetTimeCode
  3883.             move.l              #$000C0055,-(sp)
  3884.             moveq               #0,D0
  3885.             dc.w                $A82A
  3886.         EndM
  3887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3888.         IMPORT_CFM_FUNCTION VDGetTimeCode
  3889.     ENDIF
  3890.  
  3891. ;
  3892. ; pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  3893. ;
  3894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3895.         Macro
  3896.         _VDUseSafeBuffers
  3897.             move.l              #$00020056,-(sp)
  3898.             moveq               #0,D0
  3899.             dc.w                $A82A
  3900.         EndM
  3901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3902.         IMPORT_CFM_FUNCTION VDUseSafeBuffers
  3903.     ENDIF
  3904.  
  3905. ;
  3906. ; pascal VideoDigitizerError VDGetSoundInputSource(VideoDigitizerComponent ci, long videoInput, long *soundInput)
  3907. ;
  3908.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3909.         Macro
  3910.         _VDGetSoundInputSource
  3911.             move.l              #$00080057,-(sp)
  3912.             moveq               #0,D0
  3913.             dc.w                $A82A
  3914.         EndM
  3915.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3916.         IMPORT_CFM_FUNCTION VDGetSoundInputSource
  3917.     ENDIF
  3918.  
  3919. ;
  3920. ; pascal VideoDigitizerError VDGetCompressionTime(VideoDigitizerComponent ci, OSType compressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, unsigned long *compressTime)
  3921. ;
  3922.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3923.         Macro
  3924.         _VDGetCompressionTime
  3925.             move.l              #$00160058,-(sp)
  3926.             moveq               #0,D0
  3927.             dc.w                $A82A
  3928.         EndM
  3929.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3930.         IMPORT_CFM_FUNCTION VDGetCompressionTime
  3931.     ENDIF
  3932.  
  3933. ;
  3934. ; pascal VideoDigitizerError VDSetPreferredPacketSize(VideoDigitizerComponent ci, long preferredPacketSizeInBytes)
  3935. ;
  3936.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3937.         Macro
  3938.         _VDSetPreferredPacketSize
  3939.             move.l              #$00040059,-(sp)
  3940.             moveq               #0,D0
  3941.             dc.w                $A82A
  3942.         EndM
  3943.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3944.         IMPORT_CFM_FUNCTION VDSetPreferredPacketSize
  3945.     ENDIF
  3946.  
  3947. ;
  3948. ; pascal VideoDigitizerError VDSetPreferredImageDimensions(VideoDigitizerComponent ci, long width, long height)
  3949. ;
  3950.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3951.         Macro
  3952.         _VDSetPreferredImageDimensions
  3953.             move.l              #$0008005A,-(sp)
  3954.             moveq               #0,D0
  3955.             dc.w                $A82A
  3956.         EndM
  3957.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3958.         IMPORT_CFM_FUNCTION VDSetPreferredImageDimensions
  3959.     ENDIF
  3960.  
  3961. ;
  3962. ; pascal VideoDigitizerError VDGetPreferredImageDimensions(VideoDigitizerComponent ci, long *width, long *height)
  3963. ;
  3964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3965.         Macro
  3966.         _VDGetPreferredImageDimensions
  3967.             move.l              #$0008005B,-(sp)
  3968.             moveq               #0,D0
  3969.             dc.w                $A82A
  3970.         EndM
  3971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3972.         IMPORT_CFM_FUNCTION VDGetPreferredImageDimensions
  3973.     ENDIF
  3974.  
  3975. ;
  3976. ; pascal VideoDigitizerError VDGetInputName(VideoDigitizerComponent ci, long videoInput, Str255 name)
  3977. ;
  3978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3979.         Macro
  3980.         _VDGetInputName
  3981.             move.l              #$0008005C,-(sp)
  3982.             moveq               #0,D0
  3983.             dc.w                $A82A
  3984.         EndM
  3985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3986.         IMPORT_CFM_FUNCTION VDGetInputName
  3987.     ENDIF
  3988.  
  3989. ;
  3990. ; pascal VideoDigitizerError VDSetDestinationPort(VideoDigitizerComponent ci, CGrafPtr destPort)
  3991. ;
  3992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3993.         Macro
  3994.         _VDSetDestinationPort
  3995.             move.l              #$0004005D,-(sp)
  3996.             moveq               #0,D0
  3997.             dc.w                $A82A
  3998.         EndM
  3999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4000.         IMPORT_CFM_FUNCTION VDSetDestinationPort
  4001.     ENDIF
  4002.  
  4003.  
  4004.  
  4005. ;    General Sequence Grab stuff
  4006. ;
  4007.  
  4008. ; typedef ComponentInstance             SeqGrabComponent
  4009.  
  4010. ; typedef ComponentInstance             SGChannel
  4011.  
  4012.  
  4013. SeqGrabComponentType            EQU        'barg'
  4014. SeqGrabChannelType                EQU        'sgch'
  4015. SeqGrabPanelType                EQU        'sgpn'
  4016. SeqGrabCompressionPanelType        EQU        'cmpr'
  4017. SeqGrabSourcePanelType            EQU        'sour'
  4018.  
  4019. seqGrabToDisk                    EQU        1
  4020. seqGrabToMemory                    EQU        2
  4021. seqGrabDontUseTempMemory        EQU        4
  4022. seqGrabAppendToFile                EQU        8
  4023. seqGrabDontAddMovieResource        EQU        16
  4024. seqGrabDontMakeMovie            EQU        32
  4025. seqGrabPreExtendFile            EQU        64
  4026. seqGrabDataProcIsInterruptSafe    EQU        128
  4027. seqGrabDataProcDoesOverlappingReads EQU    256
  4028. ; typedef unsigned long                 SeqGrabDataOutputEnum
  4029.  
  4030.  
  4031. seqGrabRecord                    EQU        1
  4032. seqGrabPreview                    EQU        2
  4033. seqGrabPlayDuringRecord            EQU        4
  4034. ; typedef unsigned long                 SeqGrabUsageEnum
  4035.  
  4036.  
  4037. seqGrabHasBounds                EQU        1
  4038. seqGrabHasVolume                EQU        2
  4039. seqGrabHasDiscreteSamples        EQU        4
  4040. ; typedef unsigned long                 SeqGrabChannelInfoEnum
  4041.  
  4042. SGOutputRecord            RECORD 0
  4043. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  4044. sizeof                     EQU *                    ; size:   $4 (4)
  4045.                         ENDR
  4046. ; typedef struct SGOutputRecord *        SGOutput
  4047.  
  4048. SeqGrabFrameInfo        RECORD 0
  4049. frameOffset                 ds.l    1                ; offset: $0 (0)
  4050. frameTime                 ds.l    1                ; offset: $4 (4)
  4051. frameSize                 ds.l    1                ; offset: $8 (8)
  4052. frameChannel             ds.l    1                ; offset: $C (12)
  4053. frameRefCon                 ds.l    1                ; offset: $10 (16)
  4054. sizeof                     EQU *                    ; size:   $14 (20)
  4055.                         ENDR
  4056. ; typedef struct SeqGrabFrameInfo *        SeqGrabFrameInfoPtr
  4057.  
  4058. SeqGrabExtendedFrameInfo RECORD 0
  4059. frameOffset                 ds        wide            ; offset: $0 (0)
  4060. frameTime                 ds.l    1                ; offset: $8 (8)
  4061. frameSize                 ds.l    1                ; offset: $C (12)
  4062. frameChannel             ds.l    1                ; offset: $10 (16)
  4063. frameRefCon                 ds.l    1                ; offset: $14 (20)
  4064. frameOutput                 ds.l    1                ; offset: $18 (24)
  4065. sizeof                     EQU *                    ; size:   $1C (28)
  4066.                         ENDR
  4067. ; typedef struct SeqGrabExtendedFrameInfo * SeqGrabExtendedFrameInfoPtr
  4068.  
  4069.  
  4070. grabPictOffScreen                EQU        1
  4071. grabPictIgnoreClip                EQU        2
  4072. grabPictCurrentImage            EQU        4
  4073.  
  4074. sgFlagControlledGrab            EQU        $01
  4075. SGDeviceName            RECORD 0
  4076. name                     ds        Str63            ; offset: $0 (0)
  4077. icon                     ds.l    1                ; offset: $40 (64)
  4078. flags                     ds.l    1                ; offset: $44 (68)
  4079. refCon                     ds.l    1                ; offset: $48 (72)
  4080. reserved                 ds.l    1                ; offset: $4C (76)        ;  zero
  4081. sizeof                     EQU *                    ; size:   $50 (80)
  4082.                         ENDR
  4083.  
  4084. sgDeviceNameFlagDeviceUnavailable EQU    $01
  4085. SGDeviceListRecord        RECORD 0
  4086. count                     ds.w    1                ; offset: $0 (0)
  4087. selectedIndex             ds.w    1                ; offset: $2 (2)
  4088. reserved                 ds.l    1                ; offset: $4 (4)        ;  zero
  4089. entry                     ds        SGDeviceName    ; offset: $8 (8) <-- really an array of length one
  4090. sizeof                     EQU *                    ; size:   $58 (88)
  4091.                         ENDR
  4092. ; typedef struct SGDeviceListRecord *    SGDeviceListPtr
  4093.  
  4094. ; typedef SGDeviceListPtr *                SGDeviceList
  4095.  
  4096.  
  4097. sgDeviceListWithIcons            EQU        $01
  4098. sgDeviceListDontCheckAvailability EQU    $02
  4099.  
  4100. seqGrabWriteAppend                EQU        0
  4101. seqGrabWriteReserve                EQU        1
  4102. seqGrabWriteFill                EQU        2
  4103.  
  4104. seqGrabUnpause                    EQU        0
  4105. seqGrabPause                    EQU        1
  4106. seqGrabPauseForMenu                EQU        3
  4107.  
  4108. channelFlagDontOpenResFile        EQU        2
  4109. channelFlagHasDependency        EQU        4
  4110.  
  4111. sgPanelFlagForPanel                EQU        1
  4112.  
  4113. seqGrabSettingsPreviewOnly        EQU        1
  4114.  
  4115. channelPlayNormal                EQU        0
  4116. channelPlayFast                    EQU        1
  4117. channelPlayHighQuality            EQU        2
  4118. channelPlayAllData                EQU        4
  4119.  
  4120. ;
  4121. ; pascal ComponentResult SGInitialize(SeqGrabComponent s)
  4122. ;
  4123.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4124.         Macro
  4125.         _SGInitialize
  4126.             move.l              #$00000001,-(sp)
  4127.             moveq               #0,D0
  4128.             dc.w                $A82A
  4129.         EndM
  4130.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4131.         IMPORT_CFM_FUNCTION SGInitialize
  4132.     ENDIF
  4133.  
  4134. ;
  4135. ; pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  4136. ;
  4137.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4138.         Macro
  4139.         _SGSetDataOutput
  4140.             move.l              #$00080002,-(sp)
  4141.             moveq               #0,D0
  4142.             dc.w                $A82A
  4143.         EndM
  4144.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4145.         IMPORT_CFM_FUNCTION SGSetDataOutput
  4146.     ENDIF
  4147.  
  4148. ;
  4149. ; pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  4150. ;
  4151.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4152.         Macro
  4153.         _SGGetDataOutput
  4154.             move.l              #$00080003,-(sp)
  4155.             moveq               #0,D0
  4156.             dc.w                $A82A
  4157.         EndM
  4158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4159.         IMPORT_CFM_FUNCTION SGGetDataOutput
  4160.     ENDIF
  4161.  
  4162. ;
  4163. ; pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  4164. ;
  4165.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4166.         Macro
  4167.         _SGSetGWorld
  4168.             move.l              #$00080004,-(sp)
  4169.             moveq               #0,D0
  4170.             dc.w                $A82A
  4171.         EndM
  4172.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4173.         IMPORT_CFM_FUNCTION SGSetGWorld
  4174.     ENDIF
  4175.  
  4176. ;
  4177. ; pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  4178. ;
  4179.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4180.         Macro
  4181.         _SGGetGWorld
  4182.             move.l              #$00080005,-(sp)
  4183.             moveq               #0,D0
  4184.             dc.w                $A82A
  4185.         EndM
  4186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4187.         IMPORT_CFM_FUNCTION SGGetGWorld
  4188.     ENDIF
  4189.  
  4190. ;
  4191. ; pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  4192. ;
  4193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4194.         Macro
  4195.         _SGNewChannel
  4196.             move.l              #$00080006,-(sp)
  4197.             moveq               #0,D0
  4198.             dc.w                $A82A
  4199.         EndM
  4200.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4201.         IMPORT_CFM_FUNCTION SGNewChannel
  4202.     ENDIF
  4203.  
  4204. ;
  4205. ; pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  4206. ;
  4207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4208.         Macro
  4209.         _SGDisposeChannel
  4210.             move.l              #$00040007,-(sp)
  4211.             moveq               #0,D0
  4212.             dc.w                $A82A
  4213.         EndM
  4214.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4215.         IMPORT_CFM_FUNCTION SGDisposeChannel
  4216.     ENDIF
  4217.  
  4218. ;
  4219. ; pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  4220. ;
  4221.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4222.         Macro
  4223.         _SGStartPreview
  4224.             move.l              #$00000010,-(sp)
  4225.             moveq               #0,D0
  4226.             dc.w                $A82A
  4227.         EndM
  4228.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4229.         IMPORT_CFM_FUNCTION SGStartPreview
  4230.     ENDIF
  4231.  
  4232. ;
  4233. ; pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  4234. ;
  4235.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4236.         Macro
  4237.         _SGStartRecord
  4238.             move.l              #$00000011,-(sp)
  4239.             moveq               #0,D0
  4240.             dc.w                $A82A
  4241.         EndM
  4242.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4243.         IMPORT_CFM_FUNCTION SGStartRecord
  4244.     ENDIF
  4245.  
  4246. ;
  4247. ; pascal ComponentResult SGIdle(SeqGrabComponent s)
  4248. ;
  4249.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4250.         Macro
  4251.         _SGIdle
  4252.             move.l              #$00000012,-(sp)
  4253.             moveq               #0,D0
  4254.             dc.w                $A82A
  4255.         EndM
  4256.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4257.         IMPORT_CFM_FUNCTION SGIdle
  4258.     ENDIF
  4259.  
  4260. ;
  4261. ; pascal ComponentResult SGStop(SeqGrabComponent s)
  4262. ;
  4263.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4264.         Macro
  4265.         _SGStop
  4266.             move.l              #$00000013,-(sp)
  4267.             moveq               #0,D0
  4268.             dc.w                $A82A
  4269.         EndM
  4270.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4271.         IMPORT_CFM_FUNCTION SGStop
  4272.     ENDIF
  4273.  
  4274. ;
  4275. ; pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  4276. ;
  4277.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4278.         Macro
  4279.         _SGPause
  4280.             move.l              #$00020014,-(sp)
  4281.             moveq               #0,D0
  4282.             dc.w                $A82A
  4283.         EndM
  4284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4285.         IMPORT_CFM_FUNCTION SGPause
  4286.     ENDIF
  4287.  
  4288. ;
  4289. ; pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  4290. ;
  4291.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4292.         Macro
  4293.         _SGPrepare
  4294.             move.l              #$00040015,-(sp)
  4295.             moveq               #0,D0
  4296.             dc.w                $A82A
  4297.         EndM
  4298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4299.         IMPORT_CFM_FUNCTION SGPrepare
  4300.     ENDIF
  4301.  
  4302. ;
  4303. ; pascal ComponentResult SGRelease(SeqGrabComponent s)
  4304. ;
  4305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4306.         Macro
  4307.         _SGRelease
  4308.             move.l              #$00000016,-(sp)
  4309.             moveq               #0,D0
  4310.             dc.w                $A82A
  4311.         EndM
  4312.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4313.         IMPORT_CFM_FUNCTION SGRelease
  4314.     ENDIF
  4315.  
  4316. ;
  4317. ; pascal Movie SGGetMovie(SeqGrabComponent s)
  4318. ;
  4319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4320.         Macro
  4321.         _SGGetMovie
  4322.             move.l              #$00000017,-(sp)
  4323.             moveq               #0,D0
  4324.             dc.w                $A82A
  4325.         EndM
  4326.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4327.         IMPORT_CFM_FUNCTION SGGetMovie
  4328.     ENDIF
  4329.  
  4330. ;
  4331. ; pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  4332. ;
  4333.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4334.         Macro
  4335.         _SGSetMaximumRecordTime
  4336.             move.l              #$00040018,-(sp)
  4337.             moveq               #0,D0
  4338.             dc.w                $A82A
  4339.         EndM
  4340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4341.         IMPORT_CFM_FUNCTION SGSetMaximumRecordTime
  4342.     ENDIF
  4343.  
  4344. ;
  4345. ; pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  4346. ;
  4347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4348.         Macro
  4349.         _SGGetMaximumRecordTime
  4350.             move.l              #$00040019,-(sp)
  4351.             moveq               #0,D0
  4352.             dc.w                $A82A
  4353.         EndM
  4354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4355.         IMPORT_CFM_FUNCTION SGGetMaximumRecordTime
  4356.     ENDIF
  4357.  
  4358. ;
  4359. ; pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  4360. ;
  4361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4362.         Macro
  4363.         _SGGetStorageSpaceRemaining
  4364.             move.l              #$0004001A,-(sp)
  4365.             moveq               #0,D0
  4366.             dc.w                $A82A
  4367.         EndM
  4368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4369.         IMPORT_CFM_FUNCTION SGGetStorageSpaceRemaining
  4370.     ENDIF
  4371.  
  4372. ;
  4373. ; pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  4374. ;
  4375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4376.         Macro
  4377.         _SGGetTimeRemaining
  4378.             move.l              #$0004001B,-(sp)
  4379.             moveq               #0,D0
  4380.             dc.w                $A82A
  4381.         EndM
  4382.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4383.         IMPORT_CFM_FUNCTION SGGetTimeRemaining
  4384.     ENDIF
  4385.  
  4386. ;
  4387. ; pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  4388. ;
  4389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4390.         Macro
  4391.         _SGGrabPict
  4392.             move.l              #$000E001C,-(sp)
  4393.             moveq               #0,D0
  4394.             dc.w                $A82A
  4395.         EndM
  4396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4397.         IMPORT_CFM_FUNCTION SGGrabPict
  4398.     ENDIF
  4399.  
  4400. ;
  4401. ; pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  4402. ;
  4403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4404.         Macro
  4405.         _SGGetLastMovieResID
  4406.             move.l              #$0004001D,-(sp)
  4407.             moveq               #0,D0
  4408.             dc.w                $A82A
  4409.         EndM
  4410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4411.         IMPORT_CFM_FUNCTION SGGetLastMovieResID
  4412.     ENDIF
  4413.  
  4414. ;
  4415. ; pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  4416. ;
  4417.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4418.         Macro
  4419.         _SGSetFlags
  4420.             move.l              #$0004001E,-(sp)
  4421.             moveq               #0,D0
  4422.             dc.w                $A82A
  4423.         EndM
  4424.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4425.         IMPORT_CFM_FUNCTION SGSetFlags
  4426.     ENDIF
  4427.  
  4428. ;
  4429. ; pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  4430. ;
  4431.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4432.         Macro
  4433.         _SGGetFlags
  4434.             move.l              #$0004001F,-(sp)
  4435.             moveq               #0,D0
  4436.             dc.w                $A82A
  4437.         EndM
  4438.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4439.         IMPORT_CFM_FUNCTION SGGetFlags
  4440.     ENDIF
  4441.  
  4442. ;
  4443. ; pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  4444. ;
  4445.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4446.         Macro
  4447.         _SGSetDataProc
  4448.             move.l              #$00080020,-(sp)
  4449.             moveq               #0,D0
  4450.             dc.w                $A82A
  4451.         EndM
  4452.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4453.         IMPORT_CFM_FUNCTION SGSetDataProc
  4454.     ENDIF
  4455.  
  4456. ;
  4457. ; pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  4458. ;
  4459.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4460.         Macro
  4461.         _SGNewChannelFromComponent
  4462.             move.l              #$00080021,-(sp)
  4463.             moveq               #0,D0
  4464.             dc.w                $A82A
  4465.         EndM
  4466.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4467.         IMPORT_CFM_FUNCTION SGNewChannelFromComponent
  4468.     ENDIF
  4469.  
  4470. ;
  4471. ; pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  4472. ;
  4473.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4474.         Macro
  4475.         _SGDisposeDeviceList
  4476.             move.l              #$00040022,-(sp)
  4477.             moveq               #0,D0
  4478.             dc.w                $A82A
  4479.         EndM
  4480.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4481.         IMPORT_CFM_FUNCTION SGDisposeDeviceList
  4482.     ENDIF
  4483.  
  4484. ;
  4485. ; pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  4486. ;
  4487.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4488.         Macro
  4489.         _SGAppendDeviceListToMenu
  4490.             move.l              #$00080023,-(sp)
  4491.             moveq               #0,D0
  4492.             dc.w                $A82A
  4493.         EndM
  4494.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4495.         IMPORT_CFM_FUNCTION SGAppendDeviceListToMenu
  4496.     ENDIF
  4497.  
  4498. ;
  4499. ; pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  4500. ;
  4501.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4502.         Macro
  4503.         _SGSetSettings
  4504.             move.l              #$00080024,-(sp)
  4505.             moveq               #0,D0
  4506.             dc.w                $A82A
  4507.         EndM
  4508.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4509.         IMPORT_CFM_FUNCTION SGSetSettings
  4510.     ENDIF
  4511.  
  4512. ;
  4513. ; pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  4514. ;
  4515.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4516.         Macro
  4517.         _SGGetSettings
  4518.             move.l              #$00080025,-(sp)
  4519.             moveq               #0,D0
  4520.             dc.w                $A82A
  4521.         EndM
  4522.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4523.         IMPORT_CFM_FUNCTION SGGetSettings
  4524.     ENDIF
  4525.  
  4526. ;
  4527. ; pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  4528. ;
  4529.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4530.         Macro
  4531.         _SGGetIndChannel
  4532.             move.l              #$000A0026,-(sp)
  4533.             moveq               #0,D0
  4534.             dc.w                $A82A
  4535.         EndM
  4536.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4537.         IMPORT_CFM_FUNCTION SGGetIndChannel
  4538.     ENDIF
  4539.  
  4540. ;
  4541. ; pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  4542. ;
  4543.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4544.         Macro
  4545.         _SGUpdate
  4546.             move.l              #$00040027,-(sp)
  4547.             moveq               #0,D0
  4548.             dc.w                $A82A
  4549.         EndM
  4550.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4551.         IMPORT_CFM_FUNCTION SGUpdate
  4552.     ENDIF
  4553.  
  4554. ;
  4555. ; pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  4556. ;
  4557.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4558.         Macro
  4559.         _SGGetPause
  4560.             move.l              #$00040028,-(sp)
  4561.             moveq               #0,D0
  4562.             dc.w                $A82A
  4563.         EndM
  4564.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4565.         IMPORT_CFM_FUNCTION SGGetPause
  4566.     ENDIF
  4567.  
  4568. ; typedef const Component *                ConstComponentListPtr
  4569.  
  4570. ;
  4571. ; pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, ConstComponentListPtr panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  4572. ;
  4573.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4574.         Macro
  4575.         _SGSettingsDialog
  4576.             move.l              #$00160029,-(sp)
  4577.             moveq               #0,D0
  4578.             dc.w                $A82A
  4579.         EndM
  4580.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4581.         IMPORT_CFM_FUNCTION SGSettingsDialog
  4582.     ENDIF
  4583.  
  4584. ;
  4585. ; pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  4586. ;
  4587.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4588.         Macro
  4589.         _SGGetAlignmentProc
  4590.             move.l              #$0004002A,-(sp)
  4591.             moveq               #0,D0
  4592.             dc.w                $A82A
  4593.         EndM
  4594.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4595.         IMPORT_CFM_FUNCTION SGGetAlignmentProc
  4596.     ENDIF
  4597.  
  4598. ;
  4599. ; pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  4600. ;
  4601.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4602.         Macro
  4603.         _SGSetChannelSettings
  4604.             move.l              #$000C002B,-(sp)
  4605.             moveq               #0,D0
  4606.             dc.w                $A82A
  4607.         EndM
  4608.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4609.         IMPORT_CFM_FUNCTION SGSetChannelSettings
  4610.     ENDIF
  4611.  
  4612. ;
  4613. ; pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  4614. ;
  4615.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4616.         Macro
  4617.         _SGGetChannelSettings
  4618.             move.l              #$000C002C,-(sp)
  4619.             moveq               #0,D0
  4620.             dc.w                $A82A
  4621.         EndM
  4622.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4623.         IMPORT_CFM_FUNCTION SGGetChannelSettings
  4624.     ENDIF
  4625.  
  4626. ;
  4627. ; pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  4628. ;
  4629.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4630.         Macro
  4631.         _SGGetMode
  4632.             move.l              #$0008002D,-(sp)
  4633.             moveq               #0,D0
  4634.             dc.w                $A82A
  4635.         EndM
  4636.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4637.         IMPORT_CFM_FUNCTION SGGetMode
  4638.     ENDIF
  4639.  
  4640. ;
  4641. ; pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  4642. ;
  4643.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4644.         Macro
  4645.         _SGSetDataRef
  4646.             move.l              #$000C002E,-(sp)
  4647.             moveq               #0,D0
  4648.             dc.w                $A82A
  4649.         EndM
  4650.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4651.         IMPORT_CFM_FUNCTION SGSetDataRef
  4652.     ENDIF
  4653.  
  4654. ;
  4655. ; pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  4656. ;
  4657.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4658.         Macro
  4659.         _SGGetDataRef
  4660.             move.l              #$000C002F,-(sp)
  4661.             moveq               #0,D0
  4662.             dc.w                $A82A
  4663.         EndM
  4664.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4665.         IMPORT_CFM_FUNCTION SGGetDataRef
  4666.     ENDIF
  4667.  
  4668. ;
  4669. ; pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *sgOut)
  4670. ;
  4671.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4672.         Macro
  4673.         _SGNewOutput
  4674.             move.l              #$00100030,-(sp)
  4675.             moveq               #0,D0
  4676.             dc.w                $A82A
  4677.         EndM
  4678.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4679.         IMPORT_CFM_FUNCTION SGNewOutput
  4680.     ENDIF
  4681.  
  4682. ;
  4683. ; pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput sgOut)
  4684. ;
  4685.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4686.         Macro
  4687.         _SGDisposeOutput
  4688.             move.l              #$00040031,-(sp)
  4689.             moveq               #0,D0
  4690.             dc.w                $A82A
  4691.         EndM
  4692.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4693.         IMPORT_CFM_FUNCTION SGDisposeOutput
  4694.     ENDIF
  4695.  
  4696. ;
  4697. ; pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput sgOut, long whereFlags)
  4698. ;
  4699.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4700.         Macro
  4701.         _SGSetOutputFlags
  4702.             move.l              #$00080032,-(sp)
  4703.             moveq               #0,D0
  4704.             dc.w                $A82A
  4705.         EndM
  4706.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4707.         IMPORT_CFM_FUNCTION SGSetOutputFlags
  4708.     ENDIF
  4709.  
  4710. ;
  4711. ; pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput sgOut)
  4712. ;
  4713.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4714.         Macro
  4715.         _SGSetChannelOutput
  4716.             move.l              #$00080033,-(sp)
  4717.             moveq               #0,D0
  4718.             dc.w                $A82A
  4719.         EndM
  4720.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4721.         IMPORT_CFM_FUNCTION SGSetChannelOutput
  4722.     ENDIF
  4723.  
  4724. ;
  4725. ; pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput sgOut, unsigned long *space)
  4726. ;
  4727.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4728.         Macro
  4729.         _SGGetDataOutputStorageSpaceRemaining
  4730.             move.l              #$00080034,-(sp)
  4731.             moveq               #0,D0
  4732.             dc.w                $A82A
  4733.         EndM
  4734.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4735.         IMPORT_CFM_FUNCTION SGGetDataOutputStorageSpaceRemaining
  4736.     ENDIF
  4737.  
  4738. ;
  4739. ; pascal ComponentResult SGHandleUpdateEvent(SeqGrabComponent s, const EventRecord *event, Boolean *handled)
  4740. ;
  4741.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4742.         Macro
  4743.         _SGHandleUpdateEvent
  4744.             move.l              #$00080035,-(sp)
  4745.             moveq               #0,D0
  4746.             dc.w                $A82A
  4747.         EndM
  4748.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4749.         IMPORT_CFM_FUNCTION SGHandleUpdateEvent
  4750.     ENDIF
  4751.  
  4752. ;
  4753. ; pascal ComponentResult SGSetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput nextOut)
  4754. ;
  4755.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4756.         Macro
  4757.         _SGSetOutputNextOutput
  4758.             move.l              #$00080036,-(sp)
  4759.             moveq               #0,D0
  4760.             dc.w                $A82A
  4761.         EndM
  4762.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4763.         IMPORT_CFM_FUNCTION SGSetOutputNextOutput
  4764.     ENDIF
  4765.  
  4766. ;
  4767. ; pascal ComponentResult SGGetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput *nextOut)
  4768. ;
  4769.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4770.         Macro
  4771.         _SGGetOutputNextOutput
  4772.             move.l              #$00080037,-(sp)
  4773.             moveq               #0,D0
  4774.             dc.w                $A82A
  4775.         EndM
  4776.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4777.         IMPORT_CFM_FUNCTION SGGetOutputNextOutput
  4778.     ENDIF
  4779.  
  4780. ;
  4781. ; pascal ComponentResult SGSetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, const wide *maxOffset)
  4782. ;
  4783.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4784.         Macro
  4785.         _SGSetOutputMaximumOffset
  4786.             move.l              #$00080038,-(sp)
  4787.             moveq               #0,D0
  4788.             dc.w                $A82A
  4789.         EndM
  4790.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4791.         IMPORT_CFM_FUNCTION SGSetOutputMaximumOffset
  4792.     ENDIF
  4793.  
  4794. ;
  4795. ; pascal ComponentResult SGGetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, wide *maxOffset)
  4796. ;
  4797.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4798.         Macro
  4799.         _SGGetOutputMaximumOffset
  4800.             move.l              #$00080039,-(sp)
  4801.             moveq               #0,D0
  4802.             dc.w                $A82A
  4803.         EndM
  4804.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4805.         IMPORT_CFM_FUNCTION SGGetOutputMaximumOffset
  4806.     ENDIF
  4807.  
  4808. ;
  4809. ; pascal ComponentResult SGGetOutputDataReference(SeqGrabComponent s, SGOutput sgOut, Handle *dataRef, OSType *dataRefType)
  4810. ;
  4811.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4812.         Macro
  4813.         _SGGetOutputDataReference
  4814.             move.l              #$000C003A,-(sp)
  4815.             moveq               #0,D0
  4816.             dc.w                $A82A
  4817.         EndM
  4818.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4819.         IMPORT_CFM_FUNCTION SGGetOutputDataReference
  4820.     ENDIF
  4821.  
  4822. ;
  4823. ; pascal ComponentResult SGWriteExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, SGOutput *sgOut)
  4824. ;
  4825.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4826.         Macro
  4827.         _SGWriteExtendedMovieData
  4828.             move.l              #$0014003B,-(sp)
  4829.             moveq               #0,D0
  4830.             dc.w                $A82A
  4831.         EndM
  4832.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4833.         IMPORT_CFM_FUNCTION SGWriteExtendedMovieData
  4834.     ENDIF
  4835.  
  4836. ;    calls from Channel to seqGrab
  4837. ;
  4838.  
  4839. ;
  4840. ; pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  4841. ;
  4842.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4843.         Macro
  4844.         _SGWriteMovieData
  4845.             move.l              #$00100100,-(sp)
  4846.             moveq               #0,D0
  4847.             dc.w                $A82A
  4848.         EndM
  4849.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4850.         IMPORT_CFM_FUNCTION SGWriteMovieData
  4851.     ENDIF
  4852.  
  4853. ;
  4854. ; pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  4855. ;
  4856.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4857.         Macro
  4858.         _SGAddFrameReference
  4859.             move.l              #$00040101,-(sp)
  4860.             moveq               #0,D0
  4861.             dc.w                $A82A
  4862.         EndM
  4863.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4864.         IMPORT_CFM_FUNCTION SGAddFrameReference
  4865.     ENDIF
  4866.  
  4867. ;
  4868. ; pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4869. ;
  4870.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4871.         Macro
  4872.         _SGGetNextFrameReference
  4873.             move.l              #$000C0102,-(sp)
  4874.             moveq               #0,D0
  4875.             dc.w                $A82A
  4876.         EndM
  4877.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4878.         IMPORT_CFM_FUNCTION SGGetNextFrameReference
  4879.     ENDIF
  4880.  
  4881. ;
  4882. ; pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  4883. ;
  4884.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4885.         Macro
  4886.         _SGGetTimeBase
  4887.             move.l              #$00040103,-(sp)
  4888.             moveq               #0,D0
  4889.             dc.w                $A82A
  4890.         EndM
  4891.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4892.         IMPORT_CFM_FUNCTION SGGetTimeBase
  4893.     ENDIF
  4894.  
  4895. ;
  4896. ; pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  4897. ;
  4898.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4899.         Macro
  4900.         _SGSortDeviceList
  4901.             move.l              #$00040104,-(sp)
  4902.             moveq               #0,D0
  4903.             dc.w                $A82A
  4904.         EndM
  4905.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4906.         IMPORT_CFM_FUNCTION SGSortDeviceList
  4907.     ENDIF
  4908.  
  4909. ;
  4910. ; pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  4911. ;
  4912.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4913.         Macro
  4914.         _SGAddMovieData
  4915.             move.l              #$001A0105,-(sp)
  4916.             moveq               #0,D0
  4917.             dc.w                $A82A
  4918.         EndM
  4919.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4920.         IMPORT_CFM_FUNCTION SGAddMovieData
  4921.     ENDIF
  4922.  
  4923. ;
  4924. ; pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  4925. ;
  4926.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4927.         Macro
  4928.         _SGChangedSource
  4929.             move.l              #$00040106,-(sp)
  4930.             moveq               #0,D0
  4931.             dc.w                $A82A
  4932.         EndM
  4933.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4934.         IMPORT_CFM_FUNCTION SGChangedSource
  4935.     ENDIF
  4936.  
  4937. ;
  4938. ; pascal ComponentResult SGAddExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo)
  4939. ;
  4940.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4941.         Macro
  4942.         _SGAddExtendedFrameReference
  4943.             move.l              #$00040107,-(sp)
  4944.             moveq               #0,D0
  4945.             dc.w                $A82A
  4946.         EndM
  4947.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4948.         IMPORT_CFM_FUNCTION SGAddExtendedFrameReference
  4949.     ENDIF
  4950.  
  4951. ;
  4952. ; pascal ComponentResult SGGetNextExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4953. ;
  4954.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4955.         Macro
  4956.         _SGGetNextExtendedFrameReference
  4957.             move.l              #$000C0108,-(sp)
  4958.             moveq               #0,D0
  4959.             dc.w                $A82A
  4960.         EndM
  4961.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4962.         IMPORT_CFM_FUNCTION SGGetNextExtendedFrameReference
  4963.     ENDIF
  4964.  
  4965. ;
  4966. ; pascal ComponentResult SGAddExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, long chRefCon, TimeValue time, short writeType, SGOutput *whichOutput)
  4967. ;
  4968.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4969.         Macro
  4970.         _SGAddExtendedMovieData
  4971.             move.l              #$001E0109,-(sp)
  4972.             moveq               #0,D0
  4973.             dc.w                $A82A
  4974.         EndM
  4975.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4976.         IMPORT_CFM_FUNCTION SGAddExtendedMovieData
  4977.     ENDIF
  4978.  
  4979. ;
  4980. ; pascal ComponentResult SGAddOutputDataRefToMedia(SeqGrabComponent s, SGOutput sgOut, Media theMedia, SampleDescriptionHandle desc)
  4981. ;
  4982.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4983.         Macro
  4984.         _SGAddOutputDataRefToMedia
  4985.             move.l              #$000C010A,-(sp)
  4986.             moveq               #0,D0
  4987.             dc.w                $A82A
  4988.         EndM
  4989.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4990.         IMPORT_CFM_FUNCTION SGAddOutputDataRefToMedia
  4991.     ENDIF
  4992.  
  4993.  
  4994.  
  4995. ; ** Sequence Grab CHANNEL Component Stuff **
  4996.  
  4997. ;
  4998. ; pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  4999. ;
  5000.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5001.         Macro
  5002.         _SGSetChannelUsage
  5003.             move.l              #$00040080,-(sp)
  5004.             moveq               #0,D0
  5005.             dc.w                $A82A
  5006.         EndM
  5007.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5008.         IMPORT_CFM_FUNCTION SGSetChannelUsage
  5009.     ENDIF
  5010.  
  5011. ;
  5012. ; pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  5013. ;
  5014.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5015.         Macro
  5016.         _SGGetChannelUsage
  5017.             move.l              #$00040081,-(sp)
  5018.             moveq               #0,D0
  5019.             dc.w                $A82A
  5020.         EndM
  5021.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5022.         IMPORT_CFM_FUNCTION SGGetChannelUsage
  5023.     ENDIF
  5024.  
  5025. ;
  5026. ; pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  5027. ;
  5028.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5029.         Macro
  5030.         _SGSetChannelBounds
  5031.             move.l              #$00040082,-(sp)
  5032.             moveq               #0,D0
  5033.             dc.w                $A82A
  5034.         EndM
  5035.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5036.         IMPORT_CFM_FUNCTION SGSetChannelBounds
  5037.     ENDIF
  5038.  
  5039. ;
  5040. ; pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  5041. ;
  5042.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5043.         Macro
  5044.         _SGGetChannelBounds
  5045.             move.l              #$00040083,-(sp)
  5046.             moveq               #0,D0
  5047.             dc.w                $A82A
  5048.         EndM
  5049.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5050.         IMPORT_CFM_FUNCTION SGGetChannelBounds
  5051.     ENDIF
  5052.  
  5053. ;
  5054. ; pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  5055. ;
  5056.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5057.         Macro
  5058.         _SGSetChannelVolume
  5059.             move.l              #$00020084,-(sp)
  5060.             moveq               #0,D0
  5061.             dc.w                $A82A
  5062.         EndM
  5063.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5064.         IMPORT_CFM_FUNCTION SGSetChannelVolume
  5065.     ENDIF
  5066.  
  5067. ;
  5068. ; pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  5069. ;
  5070.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5071.         Macro
  5072.         _SGGetChannelVolume
  5073.             move.l              #$00040085,-(sp)
  5074.             moveq               #0,D0
  5075.             dc.w                $A82A
  5076.         EndM
  5077.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5078.         IMPORT_CFM_FUNCTION SGGetChannelVolume
  5079.     ENDIF
  5080.  
  5081. ;
  5082. ; pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  5083. ;
  5084.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5085.         Macro
  5086.         _SGGetChannelInfo
  5087.             move.l              #$00040086,-(sp)
  5088.             moveq               #0,D0
  5089.             dc.w                $A82A
  5090.         EndM
  5091.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5092.         IMPORT_CFM_FUNCTION SGGetChannelInfo
  5093.     ENDIF
  5094.  
  5095. ;
  5096. ; pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  5097. ;
  5098.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5099.         Macro
  5100.         _SGSetChannelPlayFlags
  5101.             move.l              #$00040087,-(sp)
  5102.             moveq               #0,D0
  5103.             dc.w                $A82A
  5104.         EndM
  5105.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5106.         IMPORT_CFM_FUNCTION SGSetChannelPlayFlags
  5107.     ENDIF
  5108.  
  5109. ;
  5110. ; pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  5111. ;
  5112.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5113.         Macro
  5114.         _SGGetChannelPlayFlags
  5115.             move.l              #$00040088,-(sp)
  5116.             moveq               #0,D0
  5117.             dc.w                $A82A
  5118.         EndM
  5119.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5120.         IMPORT_CFM_FUNCTION SGGetChannelPlayFlags
  5121.     ENDIF
  5122.  
  5123. ;
  5124. ; pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  5125. ;
  5126.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5127.         Macro
  5128.         _SGSetChannelMaxFrames
  5129.             move.l              #$00040089,-(sp)
  5130.             moveq               #0,D0
  5131.             dc.w                $A82A
  5132.         EndM
  5133.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5134.         IMPORT_CFM_FUNCTION SGSetChannelMaxFrames
  5135.     ENDIF
  5136.  
  5137. ;
  5138. ; pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  5139. ;
  5140.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5141.         Macro
  5142.         _SGGetChannelMaxFrames
  5143.             move.l              #$0004008A,-(sp)
  5144.             moveq               #0,D0
  5145.             dc.w                $A82A
  5146.         EndM
  5147.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5148.         IMPORT_CFM_FUNCTION SGGetChannelMaxFrames
  5149.     ENDIF
  5150.  
  5151. ;
  5152. ; pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  5153. ;
  5154.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5155.         Macro
  5156.         _SGSetChannelRefCon
  5157.             move.l              #$0004008B,-(sp)
  5158.             moveq               #0,D0
  5159.             dc.w                $A82A
  5160.         EndM
  5161.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5162.         IMPORT_CFM_FUNCTION SGSetChannelRefCon
  5163.     ENDIF
  5164.  
  5165. ;
  5166. ; pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  5167. ;
  5168.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5169.         Macro
  5170.         _SGSetChannelClip
  5171.             move.l              #$0004008C,-(sp)
  5172.             moveq               #0,D0
  5173.             dc.w                $A82A
  5174.         EndM
  5175.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5176.         IMPORT_CFM_FUNCTION SGSetChannelClip
  5177.     ENDIF
  5178.  
  5179. ;
  5180. ; pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  5181. ;
  5182.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5183.         Macro
  5184.         _SGGetChannelClip
  5185.             move.l              #$0004008D,-(sp)
  5186.             moveq               #0,D0
  5187.             dc.w                $A82A
  5188.         EndM
  5189.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5190.         IMPORT_CFM_FUNCTION SGGetChannelClip
  5191.     ENDIF
  5192.  
  5193. ;
  5194. ; pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  5195. ;
  5196.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5197.         Macro
  5198.         _SGGetChannelSampleDescription
  5199.             move.l              #$0004008E,-(sp)
  5200.             moveq               #0,D0
  5201.             dc.w                $A82A
  5202.         EndM
  5203.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5204.         IMPORT_CFM_FUNCTION SGGetChannelSampleDescription
  5205.     ENDIF
  5206.  
  5207. ;
  5208. ; pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  5209. ;
  5210.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5211.         Macro
  5212.         _SGGetChannelDeviceList
  5213.             move.l              #$0008008F,-(sp)
  5214.             moveq               #0,D0
  5215.             dc.w                $A82A
  5216.         EndM
  5217.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5218.         IMPORT_CFM_FUNCTION SGGetChannelDeviceList
  5219.     ENDIF
  5220.  
  5221. ;
  5222. ; pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  5223. ;
  5224.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5225.         Macro
  5226.         _SGSetChannelDevice
  5227.             move.l              #$00040090,-(sp)
  5228.             moveq               #0,D0
  5229.             dc.w                $A82A
  5230.         EndM
  5231.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5232.         IMPORT_CFM_FUNCTION SGSetChannelDevice
  5233.     ENDIF
  5234.  
  5235. ;
  5236. ; pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  5237. ;
  5238.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5239.         Macro
  5240.         _SGSetChannelMatrix
  5241.             move.l              #$00040091,-(sp)
  5242.             moveq               #0,D0
  5243.             dc.w                $A82A
  5244.         EndM
  5245.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5246.         IMPORT_CFM_FUNCTION SGSetChannelMatrix
  5247.     ENDIF
  5248.  
  5249. ;
  5250. ; pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  5251. ;
  5252.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5253.         Macro
  5254.         _SGGetChannelMatrix
  5255.             move.l              #$00040092,-(sp)
  5256.             moveq               #0,D0
  5257.             dc.w                $A82A
  5258.         EndM
  5259.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5260.         IMPORT_CFM_FUNCTION SGGetChannelMatrix
  5261.     ENDIF
  5262.  
  5263. ;
  5264. ; pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  5265. ;
  5266.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5267.         Macro
  5268.         _SGGetChannelTimeScale
  5269.             move.l              #$00040093,-(sp)
  5270.             moveq               #0,D0
  5271.             dc.w                $A82A
  5272.         EndM
  5273.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5274.         IMPORT_CFM_FUNCTION SGGetChannelTimeScale
  5275.     ENDIF
  5276.  
  5277. ;
  5278. ; pascal ComponentResult SGChannelPutPicture(SGChannel c)
  5279. ;
  5280.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5281.         Macro
  5282.         _SGChannelPutPicture
  5283.             move.l              #$00000094,-(sp)
  5284.             moveq               #0,D0
  5285.             dc.w                $A82A
  5286.         EndM
  5287.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5288.         IMPORT_CFM_FUNCTION SGChannelPutPicture
  5289.     ENDIF
  5290.  
  5291. ;
  5292. ; pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  5293. ;
  5294.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5295.         Macro
  5296.         _SGChannelSetRequestedDataRate
  5297.             move.l              #$00040095,-(sp)
  5298.             moveq               #0,D0
  5299.             dc.w                $A82A
  5300.         EndM
  5301.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5302.         IMPORT_CFM_FUNCTION SGChannelSetRequestedDataRate
  5303.     ENDIF
  5304.  
  5305. ;
  5306. ; pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  5307. ;
  5308.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5309.         Macro
  5310.         _SGChannelGetRequestedDataRate
  5311.             move.l              #$00040096,-(sp)
  5312.             moveq               #0,D0
  5313.             dc.w                $A82A
  5314.         EndM
  5315.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5316.         IMPORT_CFM_FUNCTION SGChannelGetRequestedDataRate
  5317.     ENDIF
  5318.  
  5319. ;
  5320. ; pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  5321. ;
  5322.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5323.         Macro
  5324.         _SGChannelSetDataSourceName
  5325.             move.l              #$00060097,-(sp)
  5326.             moveq               #0,D0
  5327.             dc.w                $A82A
  5328.         EndM
  5329.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5330.         IMPORT_CFM_FUNCTION SGChannelSetDataSourceName
  5331.     ENDIF
  5332.  
  5333. ;
  5334. ; pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  5335. ;
  5336.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5337.         Macro
  5338.         _SGChannelGetDataSourceName
  5339.             move.l              #$00080098,-(sp)
  5340.             moveq               #0,D0
  5341.             dc.w                $A82A
  5342.         EndM
  5343.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5344.         IMPORT_CFM_FUNCTION SGChannelGetDataSourceName
  5345.     ENDIF
  5346.  
  5347. ;    calls from seqGrab to Channel
  5348. ;
  5349.  
  5350. ;
  5351. ; pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  5352. ;
  5353.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5354.         Macro
  5355.         _SGInitChannel
  5356.             move.l              #$00040180,-(sp)
  5357.             moveq               #0,D0
  5358.             dc.w                $A82A
  5359.         EndM
  5360.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5361.         IMPORT_CFM_FUNCTION SGInitChannel
  5362.     ENDIF
  5363.  
  5364. ;
  5365. ; pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  5366. ;
  5367.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5368.         Macro
  5369.         _SGWriteSamples
  5370.             move.l              #$00080181,-(sp)
  5371.             moveq               #0,D0
  5372.             dc.w                $A82A
  5373.         EndM
  5374.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5375.         IMPORT_CFM_FUNCTION SGWriteSamples
  5376.     ENDIF
  5377.  
  5378. ;
  5379. ; pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  5380. ;
  5381.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5382.         Macro
  5383.         _SGGetDataRate
  5384.             move.l              #$00040182,-(sp)
  5385.             moveq               #0,D0
  5386.             dc.w                $A82A
  5387.         EndM
  5388.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5389.         IMPORT_CFM_FUNCTION SGGetDataRate
  5390.     ENDIF
  5391.  
  5392. ;
  5393. ; pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  5394. ;
  5395.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5396.         Macro
  5397.         _SGAlignChannelRect
  5398.             move.l              #$00040183,-(sp)
  5399.             moveq               #0,D0
  5400.             dc.w                $A82A
  5401.         EndM
  5402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5403.         IMPORT_CFM_FUNCTION SGAlignChannelRect
  5404.     ENDIF
  5405.  
  5406. ;    Dorky dialog panel calls
  5407. ;
  5408.  
  5409. ;
  5410. ; pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  5411. ;
  5412.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5413.         Macro
  5414.         _SGPanelGetDitl
  5415.             move.l              #$00040200,-(sp)
  5416.             moveq               #0,D0
  5417.             dc.w                $A82A
  5418.         EndM
  5419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5420.         IMPORT_CFM_FUNCTION SGPanelGetDitl
  5421.     ENDIF
  5422.  
  5423. ;
  5424. ; pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  5425. ;
  5426.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5427.         Macro
  5428.         _SGPanelGetTitle
  5429.             move.l              #$00040201,-(sp)
  5430.             moveq               #0,D0
  5431.             dc.w                $A82A
  5432.         EndM
  5433.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5434.         IMPORT_CFM_FUNCTION SGPanelGetTitle
  5435.     ENDIF
  5436.  
  5437. ;
  5438. ; pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  5439. ;
  5440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5441.         Macro
  5442.         _SGPanelCanRun
  5443.             move.l              #$00040202,-(sp)
  5444.             moveq               #0,D0
  5445.             dc.w                $A82A
  5446.         EndM
  5447.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5448.         IMPORT_CFM_FUNCTION SGPanelCanRun
  5449.     ENDIF
  5450.  
  5451. ;
  5452. ; pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5453. ;
  5454.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5455.         Macro
  5456.         _SGPanelInstall
  5457.             move.l              #$000A0203,-(sp)
  5458.             moveq               #0,D0
  5459.             dc.w                $A82A
  5460.         EndM
  5461.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5462.         IMPORT_CFM_FUNCTION SGPanelInstall
  5463.     ENDIF
  5464.  
  5465. ;
  5466. ; pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, const EventRecord *theEvent, short *itemHit, Boolean *handled)
  5467. ;
  5468.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5469.         Macro
  5470.         _SGPanelEvent
  5471.             move.l              #$00160204,-(sp)
  5472.             moveq               #0,D0
  5473.             dc.w                $A82A
  5474.         EndM
  5475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5476.         IMPORT_CFM_FUNCTION SGPanelEvent
  5477.     ENDIF
  5478.  
  5479. ;
  5480. ; pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  5481. ;
  5482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5483.         Macro
  5484.         _SGPanelItem
  5485.             move.l              #$000C0205,-(sp)
  5486.             moveq               #0,D0
  5487.             dc.w                $A82A
  5488.         EndM
  5489.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5490.         IMPORT_CFM_FUNCTION SGPanelItem
  5491.     ENDIF
  5492.  
  5493. ;
  5494. ; pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5495. ;
  5496.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5497.         Macro
  5498.         _SGPanelRemove
  5499.             move.l              #$000A0206,-(sp)
  5500.             moveq               #0,D0
  5501.             dc.w                $A82A
  5502.         EndM
  5503.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5504.         IMPORT_CFM_FUNCTION SGPanelRemove
  5505.     ENDIF
  5506.  
  5507. ;
  5508. ; pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  5509. ;
  5510.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5511.         Macro
  5512.         _SGPanelSetGrabber
  5513.             move.l              #$00040207,-(sp)
  5514.             moveq               #0,D0
  5515.             dc.w                $A82A
  5516.         EndM
  5517.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5518.         IMPORT_CFM_FUNCTION SGPanelSetGrabber
  5519.     ENDIF
  5520.  
  5521. ;
  5522. ; pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  5523. ;
  5524.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5525.         Macro
  5526.         _SGPanelSetResFile
  5527.             move.l              #$00020208,-(sp)
  5528.             moveq               #0,D0
  5529.             dc.w                $A82A
  5530.         EndM
  5531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5532.         IMPORT_CFM_FUNCTION SGPanelSetResFile
  5533.     ENDIF
  5534.  
  5535. ;
  5536. ; pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  5537. ;
  5538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5539.         Macro
  5540.         _SGPanelGetSettings
  5541.             move.l              #$000C0209,-(sp)
  5542.             moveq               #0,D0
  5543.             dc.w                $A82A
  5544.         EndM
  5545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5546.         IMPORT_CFM_FUNCTION SGPanelGetSettings
  5547.     ENDIF
  5548.  
  5549. ;
  5550. ; pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  5551. ;
  5552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5553.         Macro
  5554.         _SGPanelSetSettings
  5555.             move.l              #$000C020A,-(sp)
  5556.             moveq               #0,D0
  5557.             dc.w                $A82A
  5558.         EndM
  5559.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5560.         IMPORT_CFM_FUNCTION SGPanelSetSettings
  5561.     ENDIF
  5562.  
  5563. ;
  5564. ; pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  5565. ;
  5566.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5567.         Macro
  5568.         _SGPanelValidateInput
  5569.             move.l              #$0004020B,-(sp)
  5570.             moveq               #0,D0
  5571.             dc.w                $A82A
  5572.         EndM
  5573.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5574.         IMPORT_CFM_FUNCTION SGPanelValidateInput
  5575.     ENDIF
  5576.  
  5577. ;
  5578. ; pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  5579. ;
  5580.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5581.         Macro
  5582.         _SGPanelSetEventFilter
  5583.             move.l              #$0008020C,-(sp)
  5584.             moveq               #0,D0
  5585.             dc.w                $A82A
  5586.         EndM
  5587.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5588.         IMPORT_CFM_FUNCTION SGPanelSetEventFilter
  5589.     ENDIF
  5590.  
  5591.  
  5592. ; ** Sequence Grab VIDEO CHANNEL Component Stuff **
  5593. ;    Video stuff
  5594. ;
  5595.  
  5596. SGCompressInfo            RECORD 0
  5597. buffer                     ds.l    1                ; offset: $0 (0)
  5598. bufferSize                 ds.l    1                ; offset: $4 (4)
  5599. similarity                 ds.b    1                ; offset: $8 (8)
  5600. reserved                 ds.b    1                ; offset: $9 (9)
  5601. sizeof                     EQU *                    ; size:   $A (10)
  5602.                         ENDR
  5603. VideoBottles            RECORD 0
  5604. procCount                 ds.w    1                ; offset: $0 (0)
  5605. grabProc                 ds.l    1                ; offset: $2 (2)
  5606. grabCompleteProc         ds.l    1                ; offset: $6 (6)
  5607. displayProc                 ds.l    1                ; offset: $A (10)
  5608. compressProc             ds.l    1                ; offset: $E (14)
  5609. compressCompleteProc     ds.l    1                ; offset: $12 (18)
  5610. addFrameProc             ds.l    1                ; offset: $16 (22)
  5611. transferFrameProc         ds.l    1                ; offset: $1A (26)
  5612. grabCompressCompleteProc  ds.l    1                ; offset: $1E (30)
  5613. displayCompressProc         ds.l    1                ; offset: $22 (34)
  5614. sizeof                     EQU *                    ; size:   $26 (38)
  5615.                         ENDR
  5616. ;
  5617. ; pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  5618. ;
  5619.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5620.         Macro
  5621.         _SGGetSrcVideoBounds
  5622.             move.l              #$00040100,-(sp)
  5623.             moveq               #0,D0
  5624.             dc.w                $A82A
  5625.         EndM
  5626.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5627.         IMPORT_CFM_FUNCTION SGGetSrcVideoBounds
  5628.     ENDIF
  5629.  
  5630. ;
  5631. ; pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  5632. ;
  5633.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5634.         Macro
  5635.         _SGSetVideoRect
  5636.             move.l              #$00040101,-(sp)
  5637.             moveq               #0,D0
  5638.             dc.w                $A82A
  5639.         EndM
  5640.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5641.         IMPORT_CFM_FUNCTION SGSetVideoRect
  5642.     ENDIF
  5643.  
  5644. ;
  5645. ; pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  5646. ;
  5647.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5648.         Macro
  5649.         _SGGetVideoRect
  5650.             move.l              #$00040102,-(sp)
  5651.             moveq               #0,D0
  5652.             dc.w                $A82A
  5653.         EndM
  5654.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5655.         IMPORT_CFM_FUNCTION SGGetVideoRect
  5656.     ENDIF
  5657.  
  5658. ;
  5659. ; pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  5660. ;
  5661.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5662.         Macro
  5663.         _SGGetVideoCompressorType
  5664.             move.l              #$00040103,-(sp)
  5665.             moveq               #0,D0
  5666.             dc.w                $A82A
  5667.         EndM
  5668.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5669.         IMPORT_CFM_FUNCTION SGGetVideoCompressorType
  5670.     ENDIF
  5671.  
  5672. ;
  5673. ; pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  5674. ;
  5675.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5676.         Macro
  5677.         _SGSetVideoCompressorType
  5678.             move.l              #$00040104,-(sp)
  5679.             moveq               #0,D0
  5680.             dc.w                $A82A
  5681.         EndM
  5682.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5683.         IMPORT_CFM_FUNCTION SGSetVideoCompressorType
  5684.     ENDIF
  5685.  
  5686. ;
  5687. ; pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  5688. ;
  5689.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5690.         Macro
  5691.         _SGSetVideoCompressor
  5692.             move.l              #$00120105,-(sp)
  5693.             moveq               #0,D0
  5694.             dc.w                $A82A
  5695.         EndM
  5696.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5697.         IMPORT_CFM_FUNCTION SGSetVideoCompressor
  5698.     ENDIF
  5699.  
  5700. ;
  5701. ; pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  5702. ;
  5703.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5704.         Macro
  5705.         _SGGetVideoCompressor
  5706.             move.l              #$00140106,-(sp)
  5707.             moveq               #0,D0
  5708.             dc.w                $A82A
  5709.         EndM
  5710.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5711.         IMPORT_CFM_FUNCTION SGGetVideoCompressor
  5712.     ENDIF
  5713.  
  5714. ;
  5715. ; pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  5716. ;
  5717.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5718.         Macro
  5719.         _SGGetVideoDigitizerComponent
  5720.             move.l              #$00000107,-(sp)
  5721.             moveq               #0,D0
  5722.             dc.w                $A82A
  5723.         EndM
  5724.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5725.         IMPORT_CFM_FUNCTION SGGetVideoDigitizerComponent
  5726.     ENDIF
  5727.  
  5728. ;
  5729. ; pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  5730. ;
  5731.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5732.         Macro
  5733.         _SGSetVideoDigitizerComponent
  5734.             move.l              #$00040108,-(sp)
  5735.             moveq               #0,D0
  5736.             dc.w                $A82A
  5737.         EndM
  5738.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5739.         IMPORT_CFM_FUNCTION SGSetVideoDigitizerComponent
  5740.     ENDIF
  5741.  
  5742. ;
  5743. ; pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  5744. ;
  5745.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5746.         Macro
  5747.         _SGVideoDigitizerChanged
  5748.             move.l              #$00000109,-(sp)
  5749.             moveq               #0,D0
  5750.             dc.w                $A82A
  5751.         EndM
  5752.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5753.         IMPORT_CFM_FUNCTION SGVideoDigitizerChanged
  5754.     ENDIF
  5755.  
  5756. ;
  5757. ; pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5758. ;
  5759.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5760.         Macro
  5761.         _SGSetVideoBottlenecks
  5762.             move.l              #$0004010A,-(sp)
  5763.             moveq               #0,D0
  5764.             dc.w                $A82A
  5765.         EndM
  5766.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5767.         IMPORT_CFM_FUNCTION SGSetVideoBottlenecks
  5768.     ENDIF
  5769.  
  5770. ;
  5771. ; pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5772. ;
  5773.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5774.         Macro
  5775.         _SGGetVideoBottlenecks
  5776.             move.l              #$0004010B,-(sp)
  5777.             moveq               #0,D0
  5778.             dc.w                $A82A
  5779.         EndM
  5780.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5781.         IMPORT_CFM_FUNCTION SGGetVideoBottlenecks
  5782.     ENDIF
  5783.  
  5784. ;
  5785. ; pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  5786. ;
  5787.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5788.         Macro
  5789.         _SGGrabFrame
  5790.             move.l              #$0002010C,-(sp)
  5791.             moveq               #0,D0
  5792.             dc.w                $A82A
  5793.         EndM
  5794.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5795.         IMPORT_CFM_FUNCTION SGGrabFrame
  5796.     ENDIF
  5797.  
  5798. ;
  5799. ; pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  5800. ;
  5801.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5802.         Macro
  5803.         _SGGrabFrameComplete
  5804.             move.l              #$0006010D,-(sp)
  5805.             moveq               #0,D0
  5806.             dc.w                $A82A
  5807.         EndM
  5808.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5809.         IMPORT_CFM_FUNCTION SGGrabFrameComplete
  5810.     ENDIF
  5811.  
  5812. ;
  5813. ; pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5814. ;
  5815.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5816.         Macro
  5817.         _SGDisplayFrame
  5818.             move.l              #$000A010E,-(sp)
  5819.             moveq               #0,D0
  5820.             dc.w                $A82A
  5821.         EndM
  5822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5823.         IMPORT_CFM_FUNCTION SGDisplayFrame
  5824.     ENDIF
  5825.  
  5826. ;
  5827. ; pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  5828. ;
  5829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5830.         Macro
  5831.         _SGCompressFrame
  5832.             move.l              #$0002010F,-(sp)
  5833.             moveq               #0,D0
  5834.             dc.w                $A82A
  5835.         EndM
  5836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5837.         IMPORT_CFM_FUNCTION SGCompressFrame
  5838.     ENDIF
  5839.  
  5840. ;
  5841. ; pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  5842. ;
  5843.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5844.         Macro
  5845.         _SGCompressFrameComplete
  5846.             move.l              #$000A0110,-(sp)
  5847.             moveq               #0,D0
  5848.             dc.w                $A82A
  5849.         EndM
  5850.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5851.         IMPORT_CFM_FUNCTION SGCompressFrameComplete
  5852.     ENDIF
  5853.  
  5854. ;
  5855. ; pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  5856. ;
  5857.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5858.         Macro
  5859.         _SGAddFrame
  5860.             move.l              #$000E0111,-(sp)
  5861.             moveq               #0,D0
  5862.             dc.w                $A82A
  5863.         EndM
  5864.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5865.         IMPORT_CFM_FUNCTION SGAddFrame
  5866.     ENDIF
  5867.  
  5868. ;
  5869. ; pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5870. ;
  5871.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5872.         Macro
  5873.         _SGTransferFrameForCompress
  5874.             move.l              #$000A0112,-(sp)
  5875.             moveq               #0,D0
  5876.             dc.w                $A82A
  5877.         EndM
  5878.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5879.         IMPORT_CFM_FUNCTION SGTransferFrameForCompress
  5880.     ENDIF
  5881.  
  5882. ;
  5883. ; pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  5884. ;
  5885.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5886.         Macro
  5887.         _SGSetCompressBuffer
  5888.             move.l              #$00060113,-(sp)
  5889.             moveq               #0,D0
  5890.             dc.w                $A82A
  5891.         EndM
  5892.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5893.         IMPORT_CFM_FUNCTION SGSetCompressBuffer
  5894.     ENDIF
  5895.  
  5896. ;
  5897. ; pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  5898. ;
  5899.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5900.         Macro
  5901.         _SGGetCompressBuffer
  5902.             move.l              #$00080114,-(sp)
  5903.             moveq               #0,D0
  5904.             dc.w                $A82A
  5905.         EndM
  5906.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5907.         IMPORT_CFM_FUNCTION SGGetCompressBuffer
  5908.     ENDIF
  5909.  
  5910. ;
  5911. ; pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  5912. ;
  5913.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5914.         Macro
  5915.         _SGGetBufferInfo
  5916.             move.l              #$00120115,-(sp)
  5917.             moveq               #0,D0
  5918.             dc.w                $A82A
  5919.         EndM
  5920.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5921.         IMPORT_CFM_FUNCTION SGGetBufferInfo
  5922.     ENDIF
  5923.  
  5924. ;
  5925. ; pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  5926. ;
  5927.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5928.         Macro
  5929.         _SGSetUseScreenBuffer
  5930.             move.l              #$00020116,-(sp)
  5931.             moveq               #0,D0
  5932.             dc.w                $A82A
  5933.         EndM
  5934.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5935.         IMPORT_CFM_FUNCTION SGSetUseScreenBuffer
  5936.     ENDIF
  5937.  
  5938. ;
  5939. ; pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  5940. ;
  5941.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5942.         Macro
  5943.         _SGGetUseScreenBuffer
  5944.             move.l              #$00040117,-(sp)
  5945.             moveq               #0,D0
  5946.             dc.w                $A82A
  5947.         EndM
  5948.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5949.         IMPORT_CFM_FUNCTION SGGetUseScreenBuffer
  5950.     ENDIF
  5951.  
  5952. ;
  5953. ; pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  5954. ;
  5955.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5956.         Macro
  5957.         _SGGrabCompressComplete
  5958.             move.l              #$000C0118,-(sp)
  5959.             moveq               #0,D0
  5960.             dc.w                $A82A
  5961.         EndM
  5962.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5963.         IMPORT_CFM_FUNCTION SGGrabCompressComplete
  5964.     ENDIF
  5965.  
  5966. ;
  5967. ; pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  5968. ;
  5969.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5970.         Macro
  5971.         _SGDisplayCompress
  5972.             move.l              #$00100119,-(sp)
  5973.             moveq               #0,D0
  5974.             dc.w                $A82A
  5975.         EndM
  5976.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5977.         IMPORT_CFM_FUNCTION SGDisplayCompress
  5978.     ENDIF
  5979.  
  5980. ;
  5981. ; pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  5982. ;
  5983.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5984.         Macro
  5985.         _SGSetFrameRate
  5986.             move.l              #$0004011A,-(sp)
  5987.             moveq               #0,D0
  5988.             dc.w                $A82A
  5989.         EndM
  5990.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5991.         IMPORT_CFM_FUNCTION SGSetFrameRate
  5992.     ENDIF
  5993.  
  5994. ;
  5995. ; pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  5996. ;
  5997.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5998.         Macro
  5999.         _SGGetFrameRate
  6000.             move.l              #$0004011B,-(sp)
  6001.             moveq               #0,D0
  6002.             dc.w                $A82A
  6003.         EndM
  6004.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6005.         IMPORT_CFM_FUNCTION SGGetFrameRate
  6006.     ENDIF
  6007.  
  6008.  
  6009. ;
  6010. ; pascal ComponentResult SGSetPreferredPacketSize(SGChannel c, long preferredPacketSizeInBytes)
  6011. ;
  6012.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6013.         Macro
  6014.         _SGSetPreferredPacketSize
  6015.             move.l              #$00040121,-(sp)
  6016.             moveq               #0,D0
  6017.             dc.w                $A82A
  6018.         EndM
  6019.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6020.         IMPORT_CFM_FUNCTION SGSetPreferredPacketSize
  6021.     ENDIF
  6022.  
  6023. ;
  6024. ; pascal ComponentResult SGGetPreferredPacketSize(SGChannel c, long *preferredPacketSizeInBytes)
  6025. ;
  6026.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6027.         Macro
  6028.         _SGGetPreferredPacketSize
  6029.             move.l              #$00040122,-(sp)
  6030.             moveq               #0,D0
  6031.             dc.w                $A82A
  6032.         EndM
  6033.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6034.         IMPORT_CFM_FUNCTION SGGetPreferredPacketSize
  6035.     ENDIF
  6036.  
  6037. ;
  6038. ; pascal ComponentResult SGSetUserVideoCompressorList(SGChannel c, Handle compressorTypes)
  6039. ;
  6040.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6041.         Macro
  6042.         _SGSetUserVideoCompressorList
  6043.             move.l              #$00040123,-(sp)
  6044.             moveq               #0,D0
  6045.             dc.w                $A82A
  6046.         EndM
  6047.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6048.         IMPORT_CFM_FUNCTION SGSetUserVideoCompressorList
  6049.     ENDIF
  6050.  
  6051. ;
  6052. ; pascal ComponentResult SGGetUserVideoCompressorList(SGChannel c, Handle *compressorTypes)
  6053. ;
  6054.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6055.         Macro
  6056.         _SGGetUserVideoCompressorList
  6057.             move.l              #$00040124,-(sp)
  6058.             moveq               #0,D0
  6059.             dc.w                $A82A
  6060.         EndM
  6061.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6062.         IMPORT_CFM_FUNCTION SGGetUserVideoCompressorList
  6063.     ENDIF
  6064.  
  6065. ; ** Sequence Grab SOUND CHANNEL Component Stuff **
  6066.  
  6067. ;    Sound stuff
  6068. ;
  6069.  
  6070. ;
  6071. ; pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  6072. ;
  6073.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6074.         Macro
  6075.         _SGSetSoundInputDriver
  6076.             move.l              #$00040100,-(sp)
  6077.             moveq               #0,D0
  6078.             dc.w                $A82A
  6079.         EndM
  6080.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6081.         IMPORT_CFM_FUNCTION SGSetSoundInputDriver
  6082.     ENDIF
  6083.  
  6084. ;
  6085. ; pascal long SGGetSoundInputDriver(SGChannel c)
  6086. ;
  6087.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6088.         Macro
  6089.         _SGGetSoundInputDriver
  6090.             move.l              #$00000101,-(sp)
  6091.             moveq               #0,D0
  6092.             dc.w                $A82A
  6093.         EndM
  6094.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6095.         IMPORT_CFM_FUNCTION SGGetSoundInputDriver
  6096.     ENDIF
  6097.  
  6098. ;
  6099. ; pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  6100. ;
  6101.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6102.         Macro
  6103.         _SGSoundInputDriverChanged
  6104.             move.l              #$00000102,-(sp)
  6105.             moveq               #0,D0
  6106.             dc.w                $A82A
  6107.         EndM
  6108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6109.         IMPORT_CFM_FUNCTION SGSoundInputDriverChanged
  6110.     ENDIF
  6111.  
  6112. ;
  6113. ; pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  6114. ;
  6115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6116.         Macro
  6117.         _SGSetSoundRecordChunkSize
  6118.             move.l              #$00040103,-(sp)
  6119.             moveq               #0,D0
  6120.             dc.w                $A82A
  6121.         EndM
  6122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6123.         IMPORT_CFM_FUNCTION SGSetSoundRecordChunkSize
  6124.     ENDIF
  6125.  
  6126. ;
  6127. ; pascal long SGGetSoundRecordChunkSize(SGChannel c)
  6128. ;
  6129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6130.         Macro
  6131.         _SGGetSoundRecordChunkSize
  6132.             move.l              #$00000104,-(sp)
  6133.             moveq               #0,D0
  6134.             dc.w                $A82A
  6135.         EndM
  6136.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6137.         IMPORT_CFM_FUNCTION SGGetSoundRecordChunkSize
  6138.     ENDIF
  6139.  
  6140. ;
  6141. ; pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  6142. ;
  6143.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6144.         Macro
  6145.         _SGSetSoundInputRate
  6146.             move.l              #$00040105,-(sp)
  6147.             moveq               #0,D0
  6148.             dc.w                $A82A
  6149.         EndM
  6150.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6151.         IMPORT_CFM_FUNCTION SGSetSoundInputRate
  6152.     ENDIF
  6153.  
  6154. ;
  6155. ; pascal Fixed SGGetSoundInputRate(SGChannel c)
  6156. ;
  6157.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6158.         Macro
  6159.         _SGGetSoundInputRate
  6160.             move.l              #$00000106,-(sp)
  6161.             moveq               #0,D0
  6162.             dc.w                $A82A
  6163.         EndM
  6164.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6165.         IMPORT_CFM_FUNCTION SGGetSoundInputRate
  6166.     ENDIF
  6167.  
  6168. ;
  6169. ; pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  6170. ;
  6171.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6172.         Macro
  6173.         _SGSetSoundInputParameters
  6174.             move.l              #$00080107,-(sp)
  6175.             moveq               #0,D0
  6176.             dc.w                $A82A
  6177.         EndM
  6178.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6179.         IMPORT_CFM_FUNCTION SGSetSoundInputParameters
  6180.     ENDIF
  6181.  
  6182. ;
  6183. ; pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  6184. ;
  6185.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6186.         Macro
  6187.         _SGGetSoundInputParameters
  6188.             move.l              #$000C0108,-(sp)
  6189.             moveq               #0,D0
  6190.             dc.w                $A82A
  6191.         EndM
  6192.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6193.         IMPORT_CFM_FUNCTION SGGetSoundInputParameters
  6194.     ENDIF
  6195.  
  6196. ;
  6197. ; pascal ComponentResult SGSetAdditionalSoundRates(SGChannel c, Handle rates)
  6198. ;
  6199.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6200.         Macro
  6201.         _SGSetAdditionalSoundRates
  6202.             move.l              #$00040109,-(sp)
  6203.             moveq               #0,D0
  6204.             dc.w                $A82A
  6205.         EndM
  6206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6207.         IMPORT_CFM_FUNCTION SGSetAdditionalSoundRates
  6208.     ENDIF
  6209.  
  6210. ;
  6211. ; pascal ComponentResult SGGetAdditionalSoundRates(SGChannel c, Handle *rates)
  6212. ;
  6213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6214.         Macro
  6215.         _SGGetAdditionalSoundRates
  6216.             move.l              #$0004010A,-(sp)
  6217.             moveq               #0,D0
  6218.             dc.w                $A82A
  6219.         EndM
  6220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6221.         IMPORT_CFM_FUNCTION SGGetAdditionalSoundRates
  6222.     ENDIF
  6223.  
  6224. ;    Text stuff
  6225. ;
  6226.  
  6227. ;
  6228. ; pascal ComponentResult SGSetFontName(SGChannel c, StringPtr pstr)
  6229. ;
  6230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6231.         Macro
  6232.         _SGSetFontName
  6233.             move.l              #$00040100,-(sp)
  6234.             moveq               #0,D0
  6235.             dc.w                $A82A
  6236.         EndM
  6237.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6238.         IMPORT_CFM_FUNCTION SGSetFontName
  6239.     ENDIF
  6240.  
  6241. ;
  6242. ; pascal ComponentResult SGSetFontSize(SGChannel c, short fontSize)
  6243. ;
  6244.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6245.         Macro
  6246.         _SGSetFontSize
  6247.             move.l              #$00020101,-(sp)
  6248.             moveq               #0,D0
  6249.             dc.w                $A82A
  6250.         EndM
  6251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6252.         IMPORT_CFM_FUNCTION SGSetFontSize
  6253.     ENDIF
  6254.  
  6255. ;
  6256. ; pascal ComponentResult SGSetTextForeColor(SGChannel c, RGBColor *theColor)
  6257. ;
  6258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6259.         Macro
  6260.         _SGSetTextForeColor
  6261.             move.l              #$00040102,-(sp)
  6262.             moveq               #0,D0
  6263.             dc.w                $A82A
  6264.         EndM
  6265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6266.         IMPORT_CFM_FUNCTION SGSetTextForeColor
  6267.     ENDIF
  6268.  
  6269. ;
  6270. ; pascal ComponentResult SGSetTextBackColor(SGChannel c, RGBColor *theColor)
  6271. ;
  6272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6273.         Macro
  6274.         _SGSetTextBackColor
  6275.             move.l              #$00040103,-(sp)
  6276.             moveq               #0,D0
  6277.             dc.w                $A82A
  6278.         EndM
  6279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6280.         IMPORT_CFM_FUNCTION SGSetTextBackColor
  6281.     ENDIF
  6282.  
  6283. ;
  6284. ; pascal ComponentResult SGSetJustification(SGChannel c, short just)
  6285. ;
  6286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6287.         Macro
  6288.         _SGSetJustification
  6289.             move.l              #$00020104,-(sp)
  6290.             moveq               #0,D0
  6291.             dc.w                $A82A
  6292.         EndM
  6293.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6294.         IMPORT_CFM_FUNCTION SGSetJustification
  6295.     ENDIF
  6296.  
  6297. ;
  6298. ; pascal ComponentResult SGGetTextReturnToSpaceValue(SGChannel c, short *rettospace)
  6299. ;
  6300.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6301.         Macro
  6302.         _SGGetTextReturnToSpaceValue
  6303.             move.l              #$00040105,-(sp)
  6304.             moveq               #0,D0
  6305.             dc.w                $A82A
  6306.         EndM
  6307.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6308.         IMPORT_CFM_FUNCTION SGGetTextReturnToSpaceValue
  6309.     ENDIF
  6310.  
  6311. ;
  6312. ; pascal ComponentResult SGSetTextReturnToSpaceValue(SGChannel c, short rettospace)
  6313. ;
  6314.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6315.         Macro
  6316.         _SGSetTextReturnToSpaceValue
  6317.             move.l              #$00020106,-(sp)
  6318.             moveq               #0,D0
  6319.             dc.w                $A82A
  6320.         EndM
  6321.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6322.         IMPORT_CFM_FUNCTION SGSetTextReturnToSpaceValue
  6323.     ENDIF
  6324.  
  6325. ;    Music stuff
  6326. ;
  6327.  
  6328. ;
  6329. ; pascal ComponentResult SGGetInstrument(SGChannel c, ToneDescription *td)
  6330. ;
  6331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6332.         Macro
  6333.         _SGGetInstrument
  6334.             move.l              #$00040100,-(sp)
  6335.             moveq               #0,D0
  6336.             dc.w                $A82A
  6337.         EndM
  6338.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6339.         IMPORT_CFM_FUNCTION SGGetInstrument
  6340.     ENDIF
  6341.  
  6342. ;
  6343. ; pascal ComponentResult SGSetInstrument(SGChannel c, ToneDescription *td)
  6344. ;
  6345.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6346.         Macro
  6347.         _SGSetInstrument
  6348.             move.l              #$00040101,-(sp)
  6349.             moveq               #0,D0
  6350.             dc.w                $A82A
  6351.         EndM
  6352.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6353.         IMPORT_CFM_FUNCTION SGSetInstrument
  6354.     ENDIF
  6355.  
  6356.  
  6357.  
  6358. sgChannelAtom                    EQU        'chan'
  6359. sgChannelSettingsAtom            EQU        'ctom'
  6360. sgChannelDescription            EQU        'cdsc'
  6361. sgChannelSettings                EQU        'cset'
  6362.  
  6363. sgDeviceNameType                EQU        'name'
  6364. sgUsageType                        EQU        'use '
  6365. sgPlayFlagsType                    EQU        'plyf'
  6366. sgClipType                        EQU        'clip'
  6367. sgMatrixType                    EQU        'mtrx'
  6368. sgVolumeType                    EQU        'volu'
  6369.  
  6370. sgPanelSettingsAtom                EQU        'ptom'
  6371. sgPanelDescription                EQU        'pdsc'
  6372. sgPanelSettings                    EQU        'pset'
  6373.  
  6374. sgcSoundCompressionType            EQU        'scmp'
  6375. sgcSoundSampleRateType            EQU        'srat'
  6376. sgcSoundChannelCountType        EQU        'schn'
  6377. sgcSoundSampleSizeType            EQU        'ssiz'
  6378. sgcSoundInputType                EQU        'sinp'
  6379. sgcSoundGainType                EQU        'gain'
  6380.  
  6381. sgcVideoHueType                    EQU        'hue '
  6382. sgcVideoSaturationType            EQU        'satr'
  6383. sgcVideoContrastType            EQU        'trst'
  6384. sgcVideoSharpnessType            EQU        'shrp'
  6385. sgcVideoBrigtnessType            EQU        'brit'
  6386. sgcVideoBlackLevelType            EQU        'blkl'
  6387. sgcVideoWhiteLevelType            EQU        'whtl'
  6388. sgcVideoInputType                EQU        'vinp'
  6389. sgcVideoFormatType                EQU        'vstd'
  6390. sgcVideoFilterType                EQU        'vflt'
  6391. sgcVideoRectType                EQU        'vrct'
  6392. sgcVideoDigitizerType            EQU        'vdig'
  6393.  
  6394.  
  6395.  
  6396. ; typedef ComponentInstance             QTVideoOutputComponent
  6397.  
  6398. ;  Component type and subtype enumerations
  6399.  
  6400. QTVideoOutputComponentType        EQU        'vout'
  6401. QTVideoOutputComponentBaseSubType EQU    'base'
  6402.  
  6403. ;  QTVideoOutput Component flags
  6404.  
  6405.  
  6406. kQTVideoOutputDontDisplayToUser    EQU        $00000001
  6407. ;  Display mode atom types
  6408.  
  6409.  
  6410. kQTVODisplayModeItem            EQU        'qdmi'
  6411. kQTVODimensions                    EQU        'dimn'                ; atom contains two longs - pixel count - width, height
  6412. kQTVOResolution                    EQU        'resl'                ; atom contains two Fixed - hRes, vRes in dpi
  6413. kQTVORefreshRate                EQU        'refr'                ; atom contains one Fixed - refresh rate in Hz
  6414. kQTVOPixelType                    EQU        'pixl'                ; atom contains one OSType - pixel format of mode
  6415. kQTVOName                        EQU        'name'                ; atom contains string (no length byte) - name of modefor display to user
  6416. kQTVODecompressors                EQU        'deco'                ; atom contains other atoms indicating supported decompressors
  6417.                                                             ; kQTVODecompressors sub-atoms
  6418. kQTVODecompressorType            EQU        'dety'                ; atom contains one OSType - decompressor type code
  6419. kQTVODecompressorContinuous        EQU        'cont'                ; atom contains one Boolean - true if this type is displayed continuously
  6420. kQTVODecompressorComponent        EQU        'cmpt'                ; atom contains one Component - component id of decompressor
  6421. ; * These are QTVideoOutput procedures *
  6422. ;
  6423. ; pascal ComponentResult QTVideoOutputGetDisplayModeList(QTVideoOutputComponent vo, QTAtomContainer *outputs)
  6424. ;
  6425.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6426.         Macro
  6427.         _QTVideoOutputGetDisplayModeList
  6428.             move.l              #$00040001,-(sp)
  6429.             moveq               #0,D0
  6430.             dc.w                $A82A
  6431.         EndM
  6432.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6433.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayModeList
  6434.     ENDIF
  6435.  
  6436. ;
  6437. ; pascal ComponentResult QTVideoOutputGetCurrentClientName(QTVideoOutputComponent vo, Str255 str)
  6438. ;
  6439.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6440.         Macro
  6441.         _QTVideoOutputGetCurrentClientName
  6442.             move.l              #$00040002,-(sp)
  6443.             moveq               #0,D0
  6444.             dc.w                $A82A
  6445.         EndM
  6446.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6447.         IMPORT_CFM_FUNCTION QTVideoOutputGetCurrentClientName
  6448.     ENDIF
  6449.  
  6450. ;
  6451. ; pascal ComponentResult QTVideoOutputSetClientName(QTVideoOutputComponent vo, ConstStr255Param str)
  6452. ;
  6453.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6454.         Macro
  6455.         _QTVideoOutputSetClientName
  6456.             move.l              #$00040003,-(sp)
  6457.             moveq               #0,D0
  6458.             dc.w                $A82A
  6459.         EndM
  6460.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6461.         IMPORT_CFM_FUNCTION QTVideoOutputSetClientName
  6462.     ENDIF
  6463.  
  6464. ;
  6465. ; pascal ComponentResult QTVideoOutputGetClientName(QTVideoOutputComponent vo, Str255 str)
  6466. ;
  6467.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6468.         Macro
  6469.         _QTVideoOutputGetClientName
  6470.             move.l              #$00040004,-(sp)
  6471.             moveq               #0,D0
  6472.             dc.w                $A82A
  6473.         EndM
  6474.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6475.         IMPORT_CFM_FUNCTION QTVideoOutputGetClientName
  6476.     ENDIF
  6477.  
  6478. ;
  6479. ; pascal ComponentResult QTVideoOutputBegin(QTVideoOutputComponent vo)
  6480. ;
  6481.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6482.         Macro
  6483.         _QTVideoOutputBegin
  6484.             move.l              #$00000005,-(sp)
  6485.             moveq               #0,D0
  6486.             dc.w                $A82A
  6487.         EndM
  6488.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6489.         IMPORT_CFM_FUNCTION QTVideoOutputBegin
  6490.     ENDIF
  6491.  
  6492. ;
  6493. ; pascal ComponentResult QTVideoOutputEnd(QTVideoOutputComponent vo)
  6494. ;
  6495.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6496.         Macro
  6497.         _QTVideoOutputEnd
  6498.             move.l              #$00000006,-(sp)
  6499.             moveq               #0,D0
  6500.             dc.w                $A82A
  6501.         EndM
  6502.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6503.         IMPORT_CFM_FUNCTION QTVideoOutputEnd
  6504.     ENDIF
  6505.  
  6506. ;
  6507. ; pascal ComponentResult QTVideoOutputSetDisplayMode(QTVideoOutputComponent vo, long displayModeID)
  6508. ;
  6509.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6510.         Macro
  6511.         _QTVideoOutputSetDisplayMode
  6512.             move.l              #$00040007,-(sp)
  6513.             moveq               #0,D0
  6514.             dc.w                $A82A
  6515.         EndM
  6516.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6517.         IMPORT_CFM_FUNCTION QTVideoOutputSetDisplayMode
  6518.     ENDIF
  6519.  
  6520. ;
  6521. ; pascal ComponentResult QTVideoOutputGetDisplayMode(QTVideoOutputComponent vo, long *displayModeID)
  6522. ;
  6523.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6524.         Macro
  6525.         _QTVideoOutputGetDisplayMode
  6526.             move.l              #$00040008,-(sp)
  6527.             moveq               #0,D0
  6528.             dc.w                $A82A
  6529.         EndM
  6530.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6531.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayMode
  6532.     ENDIF
  6533.  
  6534. ;
  6535. ; pascal ComponentResult QTVideoOutputCustomConfigureDisplay(QTVideoOutputComponent vo, ModalFilterUPP filter)
  6536. ;
  6537.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6538.         Macro
  6539.         _QTVideoOutputCustomConfigureDisplay
  6540.             move.l              #$00040009,-(sp)
  6541.             moveq               #0,D0
  6542.             dc.w                $A82A
  6543.         EndM
  6544.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6545.         IMPORT_CFM_FUNCTION QTVideoOutputCustomConfigureDisplay
  6546.     ENDIF
  6547.  
  6548. ;
  6549. ; pascal ComponentResult QTVideoOutputSaveState(QTVideoOutputComponent vo, QTAtomContainer *state)
  6550. ;
  6551.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6552.         Macro
  6553.         _QTVideoOutputSaveState
  6554.             move.l              #$0004000A,-(sp)
  6555.             moveq               #0,D0
  6556.             dc.w                $A82A
  6557.         EndM
  6558.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6559.         IMPORT_CFM_FUNCTION QTVideoOutputSaveState
  6560.     ENDIF
  6561.  
  6562. ;
  6563. ; pascal ComponentResult QTVideoOutputRestoreState(QTVideoOutputComponent vo, QTAtomContainer state)
  6564. ;
  6565.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6566.         Macro
  6567.         _QTVideoOutputRestoreState
  6568.             move.l              #$0004000B,-(sp)
  6569.             moveq               #0,D0
  6570.             dc.w                $A82A
  6571.         EndM
  6572.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6573.         IMPORT_CFM_FUNCTION QTVideoOutputRestoreState
  6574.     ENDIF
  6575.  
  6576. ;
  6577. ; pascal ComponentResult QTVideoOutputGetGWorld(QTVideoOutputComponent vo, GWorldPtr *gw)
  6578. ;
  6579.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6580.         Macro
  6581.         _QTVideoOutputGetGWorld
  6582.             move.l              #$0004000C,-(sp)
  6583.             moveq               #0,D0
  6584.             dc.w                $A82A
  6585.         EndM
  6586.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6587.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorld
  6588.     ENDIF
  6589.  
  6590. ;
  6591. ; pascal ComponentResult QTVideoOutputGetGWorldParameters(QTVideoOutputComponent vo, Ptr *baseAddr, long *rowBytes, CTabHandle *colorTable)
  6592. ;
  6593.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6594.         Macro
  6595.         _QTVideoOutputGetGWorldParameters
  6596.             move.l              #$000C000D,-(sp)
  6597.             moveq               #0,D0
  6598.             dc.w                $A82A
  6599.         EndM
  6600.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6601.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorldParameters
  6602.     ENDIF
  6603.  
  6604. ;
  6605. ; pascal ComponentResult QTVideoOutputGetIndSoundOutput(QTVideoOutputComponent vo, long index, Component *outputComponent)
  6606. ;
  6607.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6608.         Macro
  6609.         _QTVideoOutputGetIndSoundOutput
  6610.             move.l              #$0008000E,-(sp)
  6611.             moveq               #0,D0
  6612.             dc.w                $A82A
  6613.         EndM
  6614.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6615.         IMPORT_CFM_FUNCTION QTVideoOutputGetIndSoundOutput
  6616.     ENDIF
  6617.  
  6618. ;
  6619. ; pascal ComponentResult QTVideoOutputGetClock(QTVideoOutputComponent vo, ComponentInstance *clock)
  6620. ;
  6621.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6622.         Macro
  6623.         _QTVideoOutputGetClock
  6624.             move.l              #$0004000F,-(sp)
  6625.             moveq               #0,D0
  6626.             dc.w                $A82A
  6627.         EndM
  6628.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6629.         IMPORT_CFM_FUNCTION QTVideoOutputGetClock
  6630.     ENDIF
  6631.  
  6632. ;
  6633. ; pascal ComponentResult QTVideoOutputSetEchoPort(QTVideoOutputComponent vo, CGrafPtr echoPort)
  6634. ;
  6635.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6636.         Macro
  6637.         _QTVideoOutputSetEchoPort
  6638.             move.l              #$00040010,-(sp)
  6639.             moveq               #0,D0
  6640.             dc.w                $A82A
  6641.         EndM
  6642.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6643.         IMPORT_CFM_FUNCTION QTVideoOutputSetEchoPort
  6644.     ENDIF
  6645.  
  6646. ;  UPP call backs 
  6647.  
  6648.     ENDIF ; __QUICKTIMECOMPONENTS__ 
  6649.  
  6650.